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FOREWORD 

Due to the many requests for the Unravelled Series produced by Spectral 
Associates, and the fact that these books are rare and no longer in production, I 
have taken it upon myself to reproduce them in electronic .PDF (Adobe Acrobat®) 
format . 

I have re-disassembled the ROMs listed in this book, and added all the 
comments from the Original Extended Basic Unravelled Book. Some changes were made 
to make the book a little easier to read. 

1. The comonents have been cleaned up some. In cases where a comonents 
continued onto the next line, a * is placed in the Labels column, as well 
as a * at the beginning of each line of the comment. In cases where the 
previous comment used this format, a = was used. This was done in the 
original, but not all comments stuck to this format. 

2. T have renumbered all the linenumbers. Each Appendix starts at Line 0001. 

3. Some spell checking, and context checking was done to verify accuracy. 

4. T used the Letter Gothic MX Bold Font. This allows for display of Slashed 
Zeros. I thought it important to be able to distinguish between and 0. 

5. All the Hex code now shows the Opcodes. 

There were other minor changes that were made to make viewing a little 
better. If any discrepancies arise, please let me know so that T may correct the 
errors. T can be contacted at: walter@tech-center.com 



About Me 

My name is Walter K. Zydhek. I've been a Computer Hobbyist since 1984 when I 
received my l'^* Tandy Color Computer 2 for Christmas. It had 32K of ram. Cassette, 
and one Cartridge. I quickly learned to program in Basic and then moved into 
Assembly . 

Over the next few years, I saved to purchase the Multi-Pak Interface, Disk 
Drives, Modem, OS-9, and various Odds and Ends. 

I moved to Tampa Florida and in the move. My CoCo was damaged. I then 
replaced it with the CoCo 3. WOW what a difference. I added the 512K Ram Upgrade, 
A CM-8 color monitor, and joined a CoCo Club. Can anyone from Tampa, Florida tell 
me the name? 

I had a couple of close friends that helped me explore the world of CoCo and 
by this time, I knew that my CoCo would be my friend forever. I give special 
thanks to Steve Cohn, who helped me get started with ADOS. Two other people who's 
names I can't remember were very beneficial to my mastering of the CoCo. 

Shortly after getting my CoCo 3, I started BBS'ing.. Wow, a whole new world.. 
My knowledge just kept growing.. 
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A few years later, I moved to Oregon, then to Phoenix, Arizona to attend 
school. I studied Electronics Technology at Phoenix Institute of Technology. In 
the second year, we studied Micro-processor Theory. For our labs, we just happen 
to use the Tandy Color Computer 3 (for studying 6809 Processors) . I had it made. 
In this class I added an EPROM programmer/reader to my list of hardware. My 
favorite instructor, Gary Angle & I spent many hours sharing information on the 
CoCo. At one time, we shared a joint project to disassemble ROMs from an 
industrial machinery which used the 6809 Processor. Using the CoCo to read the 
ROMs to work with. 

I even had a BBS running under OS-9 at one time. RiBBS I think it was. Very 
similar to QuickBBS and RemoteAccess BBS for the PC. 

In 1991, I finally converted over to PC, but never forgetting my CoCo. About 
5 years ago. My CoCo and all related material was stolen from me. And the CoCo 
world was just a memory. 

In the last 2 Years, my love for the CoCo has re-kindled. I have been 
partially content to use a CoCo Emulator for my PC. I tried the CoCo 2 Emulator by 
Jeff Vavasour. This was OK, but a lot was left out. I then purchased the CoCo 3 
Emulator. Much better, but would not use "Double Sided Disks". Although it did 
have a Virtual Hard Drive for use in OS-9. 

I then wanted to ''better' the CoCo Emulator, add use of PC hardware. Add 
Double Sided Disk functionality, and even make it Windows Native, instead of a Dos 
Box. Unfortunately the I could not get the source code for the CoCo 3 Emulator. 

I then turned to Paul Burgin' s Dragon 2/Coco 2 Emulator. This had source code 
available and with a small $20.00 donation, was able to get the source code to 
additional portions of his program. I have tinkered with it, but came to 
understand that I needed more info on the CoCo. I have looked all over the net and 
found quite a lot of useful information, but what I really needed was the 
Unravelled Series. 

I was able to find someone that had Extended Basic Unravelled and Disk Basic 
Unravelled (He sent them to me for free) . And a friend of mine had Super Extended 
Basic Unravelled (A copy I gave him years ago) . Unfortunately, the books are not 
in the best of shape, and the type is hard to read, and with so many people looking 
for the books, I decided to re-do them in Electronic format. 



I ask everyone that obtains copies of this electronic document to PLEASE give 
freely. These books are for educational/informational use only. These books are 
no longer in publication and Spectral Associates no longer in business. Do not use 
these books for financial gain, as that would most certainly abuse the Copyright 
Laws that I have already bruised by re-producing them. 



Other than that, enjoy the books! ! I'll add more information to them as I 
get it. I plan on adding more Memory Map information, as well as hardware info in 
the coming months.. But for now, take advantage of this fine resource. 



Walter K. Zydhek 
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INTRODUCTION 

Extended Basic Unravelled will provide the reader with a complete, detailed 
and fully commented assembly listing of the graphics package of Radio Shack' s COLOR 
BASIC. It is not within the scope of this book to teach the neophyte how to 
develop his own color graphics or high level arithmetic function routines. The 
reader will need to have a basic knowledge of 6809 assembly language programming to 
be able to take full advantage of the opportunities which this book presents. It is 
also assumed that the reader is familiar with the contents of the Basic Users 
manual which contains a general description of the overall operation of Basic and 
much useful information concerning the manner in which the high resolution graphics 
information is processed and put on the screen. The information and routines 
explained in this book will allow the user to understand how the Color Computer' s 
routines alter the graphics screens and even allow the user to build his own 
routines to interface with the graphics routines in the Extended Basic ROMs. 

No attempt will be made to re-explain the functions of BASIC or any routines 
which were explained in the first book of the Color BASIC Unravelled series. The 
reader should be aware of the fact that Extended Basic is not a stand alone system. 
There are many direct calls into the Basic ROMs. These calls are not explained in 
this book and it will be necessary for the reader to refer to the other Color Basic 
Unravelled books in order to get a full explanation of these ROM calls. A complete 
memory map of the system operating variables is given in Appendix A (Memory Map) 
and a symbol table showing the location of the variables is also given. 

All of the ROMs used in the Color Computer have undergone revisions since the 
inception of the machine. The disk ROMs have undergone the most severe change of 
the three ROMs. The first disk ROM (Revision 1.0) used only 6K of the available 8K 
ROM space, and the second disk ROM (Revision 1.1) used approximately 6 . 5K of ROM 
with the majority of the . 5K increase going to correct bugs in the first ROM and to 
add the DOS command to Disk Basic. That leaves 1 . 5K of free ROM space in the latest 
version of Disk Basic which is available to the user if he has a 64K machine. It is 
not recommended that this free ROM space be permanently allocated by any user since 
the Disk Basic ROMs in the Dragon computer (a British clone of the Color Computer) 
use the entire 8K ROM space and have added several new Disk BASIC commands. This 
means that the commands are also probably available to Radio Shack and version 1.2 
of the BASIC ROM which may contain some of these commands will be coming along 
sometime . 

The new revisions of the Color Basic and Extended Basic ROMs kept the 
majority of the code in the same position in the ROM. In the case of the Extended 
Basic ROMs the changes are relatively minor and Appendix G details the differences 
between the Version 1.0 and 1.1 Extended Basic ROMs. The op code of each 
instruction in the disassembly listing has been removed, however the object code 
value of the instruction's address field has been retained in order to assist the 
reader to locate variables and subroutines referred to by the instruction. 
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HOW TO USE THIS BOOK 

Extended BASIC Unravelled is a commented, disassembled listing of 
the Color Computer Extended BASIC ROM. The author has never seen any kind of source 
listing for the Color Computer ROMs, so the comments and disassembly are 100% 
unique. Some of the variable label literals which were used have come from 
published memory maps of systems which use a BASIC similar to that used in the 
Color Computer. 

The labels used in the disassembly correspond to absolute addresses in RAM 
preceded by an ''L' . The labels correspond to the addresses in Version 1.0 of the 
ROM which may cause some confusion when trying to cross index the 1.0 and 1.1 
versions . 

Literal labels have been assigned to RAM variables (memory locations that 
contain data which may change) and some ROM routines and data tables. The symbol 
table in Appendix C will allow the user to locate the address of the literal label. 
If the address is between and $989, the literal is a RAM variable, the 
description of which will be found in appendix A, the Memory Map. If the address is 
between $8000 and $9FFF, the label will be found in the Extended BASIC listing; if 

it is between $A000 and $BFFF, the label is in the Color BASIC listing and if 
it is between $C000 and $DFFF, the label is in the Disk BASIC listing. Some of the 
literal values such as SKPl, SECLEN, etc. are values not associated with an 
address. They are defined at the beginning of the Memory Map (appendix A) in the 
table of EQUATES (EQU) . There is an small group of EQUates at the beginning of the 
Extended Basic disassembly listing (Appendix B) . 

The ">" symbol will occasionally appear to the left of the address of an 
instruction. This symbol is used to indicate that a JMP, JSR or LBxx instruction is 
being used when a BRA, BSR or Bxx instruction would suffice. These instructions may 
be replaced by their short versions in order to save a few bytes if necessary. 

There are several places in the original object code where an instruction of 
the form LDA 0,R (where R X,Y,U,S) has been used. These have been replaced by 
instructions of the form LDA ,R which are more efficient in terms of processor time 
(one cycle shorter) . 

The reader will find a few places in the disassembly where an instruction 
such as LDA #0 is found. These instructions usually stem from an original source 
code instruction which is like LDA #LABEL with LABEL equal to zero. The original 
programmer did not go back and change those instructions to a CLRA. In some 
instances an LDA #0 may be necessary as the programmer did not wish the instruction 
to modify the CARRY flag. 

The different versions of the ROMs provided in this book are kept in one 
large disk file with conditional assembly flags which allow the assembly of 
whichever version is desired by merely changing a single flag in the source 
listing. This is a convenient method of keeping track of the different versions of 
the ROMs but it can cause havoc with the line numbers at the extreme left of the 
disassembly listing. The line numbers keep track of EVERY line in the source 
listing regardless of whether or not that particular line is assembled. If when 
using the disassembly listings, you notice a gap in the line numbers it means that 
the missing line numbers correspond to a section of code which was skipped during 
the assembly of that particular listing. This invariably means that there is a 
difference in the ROMs at that particular point. 
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DESCRIPTION OF EXTENDED BASIC 

Extended Basic provides several enhancements to the original Color Basic ROM. 
These enhancements are primarily the new graphics commands with major space devoted 
to the DLOAD, PRINT USING and complex mathematical commands. There is a significant 
amount of space used to interface Color and Extended Basic through the RAM vectors 
(hooks) which also allow the addition of some features (&H and &0 number types, 
CLOADing binary blocks, etc.) . The overall BASIC operating system as established by 
Color Basic is not modified by Extended Basic. No new variable types (integer, 
double precision) are introduced and the variable evaluation and storage procedures 
are identical. Color Basic's floating point and expression evaluation routines are 
used. 

All of the complex mathematical functions are generated in the same manner. 
Any mathematical function which is continuous within a certain set of bounds may be 
represented by an infinite polynomial of the form: 

a+bX+cX-^2+dX-^3+eX-^4+ 



A series of this form is referred to as a Taylor Series and the values 
a,b,c,d,e... are referred to as the coefficients of the series. This is the type of 
polynomial used in the Color Computer to evaluate its complex mathematical 
functions such as LN, SIN, COS, ATN, EXP etc. A computer may be powerful but it 
still cannot evaluate an infinite series in a finite amount of time. Therefore, the 
computer truncates the Taylor series after a certain number of terms of the 
polynomial have been evaluated. This truncation will obviously induce an error and 
the number of terms kept will determine how large the error is. The error of a 
Taylor series expansion is not constant over the entire range of the particular 
mathematical function being evaluated. For some functions the error may be 
negligible at one end of the range and blow up to an unacceptable value at the 
opposite end of the range. In order to reduce this wide range of error values, the 
Taylor series coefficients have had the Tchebyshev correction factor applied to 
them. This causes the error to be much more uniform over the entire range of the 
function. The error will not be allowed to blow up to an unacceptable value at any 
point within the function. 

PRINT USING is a complex print formatting command which consumes over 1/8 of 
the space in the Extended Basic ROM. There is a good description of PRINT USING and 
EDIT, another large Extended Basic command in the Extended Basic users manual so 
they will not be explained here. DLOAD is the most obscure command in the Color 
Computer and absorbs a substantial amount of space in the ROM. DLOAD is so poorly 
understood because Tandy has never made the necessary companion routine, DSEND. 
DLOAD will DOWNLOAD a file over the RS 232 line from another system, however there 
is no companion routine which will transmit a file over the RS 232 line to another 
Color Computer. Once a DSEND routine is built and made available to the masses, 
DLOAD will be much better understood. 

The graphics commands have been developed to use several of the different 
graphics modes which are available in the 6847 Video Display Generator (VDG) . Only 
the higher resolution modes are used and both two and four color modes are used. 
Using all of these modes causes some difficulty in how the pixels (graphic data 
points) are accessed. Since the different graphic modes have varying numbers of 
pixels per horizontal and vertical coordinates, all of the different PMODEs (VDG 
graphic modes) will allow a horizontal coordinate from 0-255 and a vertical 
coordinate from 0-191. The horizontal and vertical coordinates are normalized for 
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the different PMODEs. The normalization process will scale the horizontal and 
vertical coordinates to fit whichever PMODE has been selected. 

The VDG does not organize the display data in terms of X (horizontal) and Y 
(vertical) coordinates. It expects the data to be a continuous stream from left to 
right, top to bottom. Accordingly, a method must be devised which will translate 
the X and Y coordinates used by BASIC into the absolute RAM address (screen 
position) of the particular pixel in question and which position inside the byte 
that the pixel occupies. The pixel position is determined and kept track of by 
maintaining a "mask" in ACCA. The mask is a byte with the bit positions 
corresponding to the correct pixel set to "1". The routine which calculates the 
screen position and mask for a certain X and Y coordinate is called a CALPOS 
(CALculate Position) routine. 

All of the BASIC graphics routines require their parameters to be given in 
terms of X and Y coordinates. Any data manipulation, which is required, is 
performed on the coordinates, which are then translated into a screen position by 
CALPOS in order to turn on the appropriate pixel on the screen. 

Listed below is a brief description of all of the graphics routines including 
some little known features of some of the routines: 



COMMONLY USED TERMS 



NORMALIZING 



A routine which takes the current X,Y coordinates 
(which are entered from BASIC as 0-255 for the X coord 
and 0-191 for the Y coord) and converts them into X,Y 
coordinates for the current PMODE. 



CALPOS 



A routine which calculates an absolute screen address 
from the X,Y coordinates. This is accomplished by mult- 
iplying the vertical (Y) coordinate by the number of bytes 
per horizontal row and adding to that the start address 
of the current graphics page. Next, the horizontal (X) 
coordinate is divided by the number of pixels per byte 
(8 in the two color mode and 4 in the four color mode) and 
is added to the result of the vertical computations. 



PIXEL 



A dot on the graphics screen which may be turned on or 
off. It will either consist of a single bit for the 2 
color mode or a bit pair for the 4 color mode. 



PIXEL MASK A data mask which, if ANDed with a graphic byte from the 

video screen will leave only the information for one pixel. 
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GRAPHICS ROUTINES 



PUT /GET 

PUT and GET graphics have one relatively unexplained option. The '"G' option, 
as you may know if you have used it much can cause great problems if you don't use 
it in exactly the right manner. 

Tf the ''G' option is not used, BASTC figures out which byte the GET starts in 
and stores the entire byte into the array (even if the start point is in the middle 
of the byte) which means that information that was not actually within the limits 
of the GET will be stored at the new location when PUT is used. Refer to FTGURE lA 
for a better understanding of what happens when the 'G' option is not used. 



TF THTS AREA CONTATNS 
ANYTHTNG, TT WTLL BE 
STORED WTTH THE PUT 



PORTTON TO BE 
GOT BY 'GET' 



PORTTON THAT GETS STORED TNTO 
THE ARRAY AND WTLL BE 'PUT' 
AT THE NEW LOCATTON 

FTGURE lA 

When the 'G' option is used, BASTC figures out which byte the 'GET' starts 
in, but starts at the exact pixel within that byte and stores the information bit 
by bit into the array, which means that only the information within the boundaries 
of the 'GET' area will be stored at the new location when 'PUT' is used. Using the 
'G' option makes for a more accurate transfer, but because of the method used to 
move the information, it is about 10 times slower than if the 'G' option were not 
used. Also, when using the 'G' option you must insure that the array you 'PUT' is 
exactly the same size as the array you originally used 'GET' on. This is not as 
critical when the 'G' option is not used. Refer to figure IB for a better 
understanding of what happens when the 'G' option is used. 



ANYTHTNG TN THTS 
AREA WTLL BE TGNORED 



PORTTON TO BE 
GOT BY 'GET' 



PORTTON THAT GETS STORED TNTO 
THE ARRAY AND WTLL BE 'PUT' 
AT THE NEW LOCATTON 



FTGURE IB 
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PCLEAR 

PCLEAR is used to reserve the number of 1 . 5K graphics pages that you need. It 
is also the culprit responsible for the strange behavior of a BASIC program when a 
PCLEAR statement is encountered within the program in Extended Basic 1.0 (PCLEAR 
BUG) . This occurs because of the way that PCLEAR works. The BASIC program normally 
lives immediately after the of the reserved graphics pages, therefore if the number 
of graphics pages reserved changes, the memory location of the BASIC program must 
be adjusted to the correct place. If your computer was running under EXTENDED BASIC 
V 1.0 strange things could occur when this happened. The BASIC program would get 
moved as it should, but the pointer in the direct page would not get told that it 
moved and as such the input line pointer would be pointing to the wrong line after 
the move. Most of the time this would result in an error of some sort and would 
require that you simply run the program again, but once in a while strange and 
bizarre things would occur as the program would somehow manage to continue..., in 
the middle of the wrong line! This bug was corrected in version 1.1 of EXTENDED 
BASIC by adding the code that would re-adjust the BASIC input pointer necessary for 
proper operation. 

PMODE 

PMODE is a routine which sets up the graphics mode and graphics page, it also 
sets up the background and foreground default colors and stores the number of bytes 
per horizontal row for the selected mode into the direct page. It is interesting to 
note that both arguments are not necessary when using this command from BASIC, for 
example; "PM0DE4" will set the graphics mode but will not alter the viewing page, 
whereas "PMODE, 2" will leave the graphics mode as is and will only alter the 
viewing page and "PMODE4,2" will do both. 

SCREEN 

SCREEN is the routine that actually turns on the viewing screen. You can use 
it to select the graphics screen which was set up by PMODE or you can use it to 
elect the text screen; it also allows you to select the colorset . Both arguments 
are not required when using this command from BASIC, for example "SCREENl" will 
just select the graphics screen but will not change the colorset, "SCREEN,!" will 
change the colorset but will leave the viewing screen as it is. It is interesting 
to note that anytime a PRINT is executed, the screen and colorset will be reset to 
default values (text screen, colorset 0) . 

PCLS 

PCLS is a routine that clears the graphics page starting at BEGGRP and ending 
at ENDGRP (which were set by PMODE) . If no argument is specified, the current 
background color is used as a default value otherwise the ASCII TO 3 which was 
parsed from the BASIC program line gets converted to a binary to 3 and is 
multiplied by $55, this will leave ACCB containing the proper bit pattern for the 
particular color. 

Some very interesting things can be made to happen by altering BEGGRP and/or 
ENDGRP since these memory locations contain the absolute address of the start and 
end of the current graphics page. For example, a partial PCLS of the screen may be 
accomplished from BASIC by saving the original values of BEGGRP and ENDGRP, 
altering them, doing a PCLS and restoring the original values. Extreme caution must 
be exercised when doing something like this, POKEing the wrong values could cause 
your BASIC program to be erased, and if you forget to restore the original values, 
the graphics commands will not work properly. 
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COLOR 

COLOR is a routine that sets up the foreground and background colors and 
stores them in FORCOL and BAKCOL. It is not necessary to specify both arguments 
when using this from BASIC. For example, "COLORl" sets only the foreground color, 
"COLOR, 1" sets only the background color, and "COLORl, 1" sets both. 

PPOINT 

PPOINT is a routine that checks to see if the pixel at the specified X,Y 
coordinate is a color or turned off. The first thing that this routine does is to 
parse off the horizontal (X) and the vertical (Y) coordinates from the BASIC 
program line. These coordinates are then normalized for the current PMODE and 
converted to an absolute screen address and a pixel mask by a calpos routine. The 
pixel is then tested to see if it is set to a color (0 to 8, = pixel off) and the 
result is returned as a floating point number. 

LINE 

The LINE routine sort of serves a dual purpose: it is the first step of the 
LINE INPUT command and also is used to draw graphic lines. As the routine is 
entered, a check is made to see if the token for INPUT follows the LINE token. If 
this is the case, the program branches and a LINE INPUT is performed, otherwise the 
line routine continues. From this point, the LINE routine checks for one of three 
characters, the "(", the "-" or the "@" symbols and if none of these are found, a 
syntax error is generated. If one of these symbols is found, the routine parses the 
start and end coordinates, which are normalized for the current PMODE and placed in 
HORBEG, VERBEG, HOREND, and VEREND . Next, the 'B'ox and 'F' ill options are looked 
for and flags are set accordingly. The line is then drawn and appropriate actions 
are taken depending on the status of the Box and Fill flags. It is interesting to 
note that the "@" symbol does not do anything! It is there to make the command 
syntax consistent with the "PRINT @" concept and to make it compatible with other 
versions of Microsoft BASIC. 

PSET/PRESET 

PSET is a routine that 'sets' or turns on a single pixel for the current 
PMODE and is the exact routine used by PRESET. SETFLAG is used to indicate what 
action to take, if it is set, the routine was called by a PSET and a pixel will be 
turned on, if it is clear, the routine was called by PRESET and a pixel will be 
turned off. The main routine takes the specified X,Y coordinates, normalizes them 
for the current PMODE, calculates the absolute screen address by a calpos routine 
and performs the appropriate action on the pixel. 

DRAW 

DRAW is a routine that has the ability to draw lines of a specified length in 
any one of 8 angles, 0, 45, 90, 135, 180, 225, 270, and 315 degrees. The directions 
and lengths are parsed from the BASIC program line and flags are set to indicate 
which direction (or directions in the case of diagonal lines) that the line will be 
drawn. What actually happens is this: The X,Y coordinates are figured and 
normalized for the current PMODE, the absolute screen address is calculated by a 
calpos routine, and a portion of the PSET routine is called to turn on the pixel. 
The X,Y coordinates are adjusted in the proper direction and the process is 
repeated ''LENGTH' number of times. This continues until the end of the DRAW command 
string. Something not generally known about the DRAW routine is it's ability to use 
variables to indicate parameters like length, color, and scale! There is a certain 
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syntax that must be followed, which to my knowledge has not yet been published 
anywhere until now. Following is a short example of how to do this. 

10 A=10:B=13 

20 DRAW "BM=A; ,A; ;U=B;R=B;D=B;L=B" 

The above program will draw a box that has sides equal to the variable ''B' , 
as the program stands, line 20 is equivalent to the following: 

20 DRAW "BMIO, 10;U13R13D13L13" 

There are many good possibilities for using variables with DRAW, it's too bad 
that nobody has outlined how to do it until now. 

CIRCLE 

CIRCLE, believe it or not, is not really drawn as a circle, it is instead 
drawn as a 64 sided polygon using a formula and a sine/cosine table to calculate 
the coordinates before drawing the individual lines. The routine has provisions so 
that partial circles can be drawn, color can be specified, and height to width 
ratio can also be specified. 

PAINT 

PATNT is a routine which starts at a specified X,Y coordinate and draws 
horizontal lines until either a border of specified color is encountered or the 
edge of the screen is reached. The process continues until all borders have been 
reached. As it PAINTs, the routine keeps track of places where a line of equal 
length has not encountered a border or a screen edge so that it can paint odd 
shaped areas . 



PCOPY 

PCOPY is a routine which copies a 1 . 5K block of memory from one graphics page 
to another. There are a total of 8 graphics pages for use which may be reserved by 
the PCLEAR command, PCOPY was designed to allow copying from page to page within 
the reserved area, however due to a little known bug in the routine that checks for 
this, it is possible to PCOPY to page 5 even if only 4 pages were reserved 
(PCLEAR4) . This can be very hazardous to the health of your BASIC program 
(remember, your BASTC program starts immediately after the end of the reserved 
graphics pages) . Imagine what would happen to your program if you were to write the 
following program: 

10 PCLEAR4 

20 PCOPY 1 TO 5 

Tf all were as should be you would be greeted with an ''FC error, but 
unfortunately the routine which should detect such an error does not work properly. 
Microsoft did not catch the error in time to correct it in the 1.1 revision 
Extended Basic, but did manage to fix it for the DRAGON computer (a color computer 
clone from England) . 

PLAY 

PLAY is a routine which allows you to create complex sounds with much greater 
efficiency than the SOUND routine. Values are parsed from the BASIC line and are 
used to set such things as volume, octave, note and duration. These values are used 
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EXTENDED BASIC UNRAVELLED II DESCRIPTION OF EXTENDED BASIC ORIGIN: SPECTRAL ASSOC 

REVISED:03/14/99 WALTER K ZYDHEK 

in conjunction with delay routines and a waveform table to create music or sound 
effects. A little known fact about the PLAY routine is it's ability to allow the 
use of variables within the program line in a way similar to that described in the 
section about DRAW. In fact PLAY and DRAW both use the same string interpretation 
routine when variables are involved. 
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0001 
0002 
0003 
0004 
0005 
0005 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0015 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0025 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0035 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0045 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0055 
0057 
0058 
0059 
0050 
0051 
0052 
0053 
0054 
0055 
0055 
0057 
0058 
0059 
0070 
0071 
0072 
0073 
0074 



C000 


ROMPAK 


EQU 


$C000 


0008 


BS 


EQU 


8 


000D 


CR 


EQU 


$D 


001B 


ESC 


EQU 


$1B 


000A 


LF 


EQU 


$A 


000C 


FORMF 


EQU 


$C 


0020 


SPACE 


EQU 


$20 


003A 


STKBUF 


EQU 


58 


045E 


DEBDEL 


EQU 


$45E 


00 FA 


LBUFMX 


EQU 


250 


00 FA 


MAXLIN 


EQU 


$FA 


2600 


DOSBUF 


EQU 


$2500 


0020 


DIRLEN 


EQU 


32 


0100 


SECLEN 


EQU 


255 


0012 


SECMAX 


EQU 


18 


1200 


TRKLEN 


EQU 


SECMAX*SECLEN 


0023 


TRKMAX 


EQU 


35 


004A 


FATLEN 


EQU 


5+(TRKMAX-l)*2 


0044 


GRANMX 


EQU 


(TRKMAX-1)*2 


0119 


FCBLEN 


EQU 


SECLEN+25 


0010 


INPFIL 


EQU 


$10 


0020 


OUTFIL 


EQU 


$20 


0040 


RANFIL 


EQU 


$40 




* PSEUDO 


PSEUDQ 


QPS 


0021 


SKPl 


EQU 


$21 


008C 


SKP2 


EQU 


$8C 


0085 


SKPILD 


EQU 


$85 



0080 
0040 
0020 
0010 



0004 
0002 
0001 



0020 
0010 



0004 
0002 
0001 



0030 
0031 
0032 
0033 



* SUPER EXTENDED BASIC EQUATES 



0018 


RQWMAX 


EQU 


24 


0000 


RAMLINK 


EQU 





2000 


HRESSCRN 


EQU 


$2000 


C000 


HRESBUFF 


EQU 


$C000 


DFFF 


TMPSTACK 


EQU 


$DFFF 


0052 


EBHITQK 


EQU 


$52 


0029 


EBHISTQK 


EQU 


$29 


0020 


CURCHAR 


EQU 


SPACE 




* HBUFF HGET/HPUT BUFI 


0000 


HB.ADDR 


EQU 





0002 


HB.NUM 


EQU 


2 


0003 


HB.SIZE 


EQU 


3 


0005 


HB.LEN 


EQU 


5 



BACKSPACE 
ENTER KEY 
ESCAPE CODE 
LINE FEED 
FQRM FEED 
SPACE (BLANK) 

STACK BUFFER ROOM 

DEBOUNCE DELAY 

MAX NUMBER OF CHARS IN A BASIC LINE 

MAXIMUM MS BYTE OF LINE NUMBER 

RAM LOAD LOCATION FOR THE DOS COMMAND 

NUMBER OF BYTES IN DIRECTORY ENTRY 

LENGTH OF SECTOR IN BYTES 

MAXIMUM NUMBER OF SECTORS PER TRACK 

LENGTH OF TRACK IN BYTES 

MAX NUMBER OF TRACKS 

FILE ALLOCATION TABLE LENGTH 

MAXIMUM NUMBER OF GRANULES 

FILE CONTROL BLOCK LENGTH 

INPUT FILE TYPE 

OUTPUT FILE TYPE 

RANDOM/DIRECT FILE TYPE 



OP CODE OF BRN SKIP ONE BYTE 

OP CODE OF CMPX # - SKIP TWO BYTES 

OP CODE OF LDA # - SKIP THE NEXT BYTE 

AND LOAD THE VALUE OF THAT BYTE INTO ACCA THIS 

IS USUALLY USED TO LOAD ACCA WITH A NON ZERO VALUE 



MAXIMUM NUMBER OF ROWS IN HI-RES PRINT MODE 

DUMMY RAM LINK VECTOR 

ADDRESS OF THE HI-RES SCREEN IN THE CPU'S MEMORY SPACE 

ADDRESS OF THE GET/PUT BUFFERS IN THE CPU'S MEMORY SPACE 

ADDRESS OF THE HI -RES GRAPHICS STACK IN THE CPU'S MEMORY SPACE 

FIRST ENHANCED BASIC TOKEN NUMBER 

FIRST ENHANCED BASIC FUNCTION TOKEN NUMBER BUG - SHOULD BE $28 

HI-RES CURSOR CHARACTER 



ADDRESS OF THE NEXT BUFFER - 2 BYTES 
NUMBER OF THIS BUFFER - 1 BYTES 
NUMBER OF BYTES IN THE BUFFER - 2 BYTES 
NUMBER OF BYTES IN THIS HEADER 



* VIDEO REGISTER EQUATES 

* INIT0 BIT EQUATES 



COCO 

MMUEN 

lEN 

FEN 

MC3 

MC2 

MCI 

MC0 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$40 

$20 

$10 

8 

4 

2 

1 



INTERRUPT REQUEST ENABLED 



TMR 

HBQRD 

VBQRD 

EI2 

Ell 

EI0 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$20 
$10 



* EXPANDED MEMORY DEFINITIONS 
BLOCK 5.0 EQU $30 
BLOCK 5.1 EQU $31 
BLOCK 5.2 EQU $32 
BLOCK 5.3 EQU $33 



1 = Color Computer compatible 
1 = MMU enabled 

1 = GIME chip IRQ output enabled 
1 = GIME chip FIRO output enabled 
1 = RAM at XFEXX is constant 
1 = standard SCS 
ROM map control 
ROM map control 



TIMER 

HORIZONTAL BORDER 

VERTICAL BORDER 

SERIAL DATA 

KEYBOARD 

CARTRIDGE 



BLOCKS $30-$33 ARE THE HI-RES GRAPHICS SCREEN 

HI-RES GRAPHICS SCREEN 

HI-RES GRAPHICS SCREEN 

HI-RES GRAPHICS SCREEN 
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0075 




0077 




0078 




0079 




0080 




0081 




0082 




0083 




0084 




0085 




0085 




0087 




0088 




0089 




0090 




0091 




0092 


0000 


0093 




0094 




0095 


0000 


0095 


0001 


0097 


0002 


0098 


0003 


0099 


0004 


0100 


0005 


0101 


0005 


0102 


0007 


0103 


0008 


0104 


0009 


0105 


000A 


0105 


000B 


0107 


000D 


0108 


000F 


0109 


0011 


0110 




0111 


0013 


0112 


0017 


0113 


0019 


0114 


001B 


0115 


001D 


0115 


001F 


0117 


0021 


0118 


0023 


0119 


0025 


0120 


0027 


0121 


0029 


0122 


002B 


0123 


002D 


0124 


002F 


0125 


0031 


0126 


0033 


0127 


0035 


0128 


0037 


0129 


0039 


0130 


003B 


0131 


003D 


0132 


003 F 


0133 




0134 




0135 




0136 




0137 


0040 


0138 


0041 


0139 


0042 


0140 


0043 


0141 


0044 


0142 




0143 


0045 


0144 


0046 


0145 


0047 


0146 


0048 


0147 




0148 


004A 



0034 


BLOCK 6.4 


EQU 


$34 


0035 


BLOCK 5.5 


EOU 


$35 


0035 


BLOCK 5.5 


EOU 


$35 


0037 


BLOCK 5.7 


EOU 


$37 




* BLOCKS $48-$4F ARI 


0038 


BLOCK7.0 


EOU 


$38 


0039 


BL0CK7.1 


EOU 


$39 


003A 


BL0CK7.2 


EOU 


$3A 


003B 


BL0CK7.3 


EOU 


$3B 


003C 


BL0CK7.4 


EOU 


$3C 


003D 


BL0CK7.5 


EOU 


$3D 


003E 


BL0CK7.5 


EOU 


$3E 


003F 


BL0CK7.7 


EOU 


$3F 



GET/PUT BUFFER 

STACK AREA FOR HI -RES GRAPHICS COMMAND 

CHARACTER POINTERS 

UNUSED BY BASIC 



0000 





ORG 







SETDP 


ENDFLG 


RMB 




CHARAC 


RMB 




ENDCUR 


RMB 




TMPLOC 


RMB 




IFCTR 


RMB 




DIMFLG 


RMB 




VALTYP 


RMB 




GARBFL 


RMB 




ARYDIS 


RMB 




INPFLG 


RMB 




RELFLG 


RMB 




TEMPPT 


RMB 


2 


LASTPT 


RMB 


2 


TEMPTR 


RMB 


2 


TMPTRl 


RMB 


2 


** FLOATING POINT 


FPA2 


RMB 


4 


BOTSTK 


RMB 


2 


TXTTAB 


RMB 


2 


VARTAB 


RMB 


2 


ARYTAB 


RMB 


2 


ARYEND 


RMB 


2 


FRETOP 


RMB 


2 


STRTAB 


RMB 


2 


FRESPC 


RMB 


2 


MEMSIZ 


RMB 


2 


OLDTXT 


RMB 


2 


BINVAL 


RMB 


2 


OLDPTR 


RMB 


2 


TINPTR 


RMB 


2 


DATTXT 


RMB 


2 


DATPTR 


RMB 


2 


DATTMP 


RMB 


2 


VARNAM 


RMB 


2 


VARPTR 


RMB 


2 


VARDES 


RMB 


2 


RELPTR 


RMB 


2 


TRELFL 


RMB 


1 



STOP/END FLAG: POSITIVE=STOP, NEG=END 
TERMINATOR FLAG 1 
TERMINATOR FLAG 2 
SCRATCH VARIABLE 

IF COUNTER - HOW MANY IF STATEMENTS IN A LINE 
*DV* ARRAY FLAG 0=EVALUATE, 1=DIMENSI0NING 
*DV* *PV TYPE FLAG: 0=NUMERIC, $FF=STRING 
*TV STRING SPACE HOUSEKEEPING FLAG 
DISABLE ARRAY SEARCH: 00=ALLOW SEARCH 
*TV INPUT FLAG: READ=0, INPUTO0 
*TV RELATIONAL OPERATOR FLAG 
*PV TEMPORARY STRING STACK POINTER 
*PV ADDR OF LAST USED STRING STACK ADDRESS 
TEMPORARY POINTER 

TEMPORARY DESCRIPTOR STORAGE (STACK SEARCH) 
ACCUMULATOR #2 (MANTISSA ONLY) 

FLOATING POINT ACCUMULATOR #2 MANTISSA 

BOTTOM OF STACK AT LAST CHECK 

*PV BEGINNING OF BASIC PROGRAM 

*PV START OF VARIABLES 

*PV START OF ARRAYS 

*PV END OF ARRAYS (+1) 

*PV START OF STRING STORAGE (TOP OF FREE RAM) 

*PV START OF STRING VARIABLES 

UTILITY STRING POINTER 

*PV TOP OF STRING SPACE 

SAVED LINE NUMBER DURING A "STOP" 

BINARY VALUE OF A CONVERTED LINE NUMBER 

SAVED INPUT PTR DURING A "STOP" 

TEMPORARY INPUT POINTER STORAGE 

*PV 'DATA' STATEMENT LINE NUMBER POINTER 

*PV 'DATA' STATEMENT ADDRESS POINTER 

DATA POINTER FOR 'INPUT' & 'READ' 

*TV TEMP STORAGE FOR A VARIABLE NAME 

*TV POINTER TO A VARIABLE DESCRIPTOR 

TEMP POINTER TO A VARIABLE DESCRIPTOR 

POINTER TO RELATIONAL OPERATOR PROCESSING ROUTINE 

TEMPORARY RELATIONAL OPERATOR FLAG BYTE 



* FLOATING POINT ACCUMULATORS #3,4 & 5 ARE MOSTLY 

* USED AS SCRATCH PAD VARIABLES. 

** FLOATING POINT ACCUMULATOR #3 :PACKED: ($40-$44) 

V40 

V41 

V42 

V43 

V44 

** FLOATING POINT ACCUMULATOR #4 :PACKED: ($45-$49) 

V45 RMB 1 

V46 RMB 1 

V47 RMB 1 

V48 RMB 2 

** FLOATING POINT ACCUMULATOR #5 : PACKED: ($4A $4E) 



RMB 




RMB 




RMB 




RMB 




RMB 





V4A 



RMB 
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0149 


004B 


0150 


004D 


0151 




0152 


004F 


0153 


0050 


0154 


0054 


0155 


0055 


0155 


0056 


0157 


005B 


0158 




0159 


005C 


0150 


005D 


0161 


0061 


0162 




0163 


0062 


0164 


0063 


0165 


0064 


0166 


0066 


0167 


0068 


0168 


006A 


0169 


006B 


0170 


006C 


0171 


006D 


0172 


006E 


0173 


006F 


0174 




0175 


0070 


0176 


0071 


0177 


0072 


0178 


0074 


0179 


0076 


0180 


0078 


0181 


0079 


0182 


007A 


0183 


007C 


0184 


007D 


0185 


007E 


0186 


0080 


0187 


0081 


0188 


0082 


0189 


0083 


0190 


0084 


0191 


0085 


0192 


0086 


0193 


0087 


0194 


0088 


0195 


008A 


0196 


008C 


0197 


008D 


0198 




0199 




0200 




0201 




0202 


008F 


0203 


0090 


0204 


0091 


0205 


0092 


0206 


0094 


0207 


0095 


0208 


0097 


0209 


0099 


0210 


009A 


0211 


009B 


0212 


009C 


0213 


009D 


0214 




0215 




0216 




0217 




0218 




0219 


009F 0C A7 


0220 


00A1 26 02 


0221 


00A3 0C A6 


0222 


00A5 B6 



V4B 


RMB 


2 


V4D 


RMB 


2 


** FLOATING POINT 


FP0EXP 


RMB 


1 


FPA0 


RMB 


4 


FP0SGN 


RMB 


1 


COEFCT 


RMB 


1 


STRDES 


RMB 


5 


FPCARY 


RMB 


1 


** FLOATING POINT 


FPIEXP 


RMB 


1 


FPAl 


RMB 


4 


FPISGN 


RMB 


1 


RESSGN 


RMB 


1 


FPSBYT 


RMB 


1 


COEFPT 


RMB 


2 


LSTTXT 


RMB 


2 


CURLIN 


RMB 


2 


DEVCFW 


RMB 


1 


DEVLCF 


RMB 


1 


DEVPOS 


RMB 


1 


DEVWID 


RMB 


1 


PRTDEV 


RMB 


1 


DEVNUM 

■k 


RMB 


1 


CINBFL 


RMB 


1 


RSTFLG 


RMB 


1 


RSTVEC 


RMB 


2 


TO PRAM 


RMB 


2 




RMB 


2 


FILSTA 


RMB 


1 


CINCTR 


RMB 


1 


CINPTR 


RMB 


2 


BLKTYP 


RMB 


1 


BLKLEN 


RMB 


1 


CBUFAD 


RMB 


2 


CCKSUM 


RMB 


1 


CSRERR 


RMB 


1 


CPULWD 


RMB 


1 


CPERTM 


RMB 


1 


CBTPHA 


RMB 


1 


CLSTSN 


RMB 


1 


GRBLOK 


RMB 


1 


IKEYIM 


RMB 


1 


CURPOS 


RMB 


2 


ZERO 


RMB 


2 


SNDTON 


RMB 


1 


SNDDUR 


RMB 


2 



ACCUMULATOR #0 



*PV FLOATING POINT ACCUMULATOR #0 
*PV FLOATING POINT ACCUMULATOR #0 
*PV FLOATING POINT ACCUMULATOR #0 
POLYNOMIAL COEFFICIENT COUNTER 
TEMPORARY STRING DESCRIPTOR 
FLOATING POINT CARRY BYTE 



ACCUMULATOR #1 



CMPMID 


RMB 


1 


CMP0 


RMB 


1 


CMPl 


RMB 


1 


SYNCLN 


RMB 


2 


BLKCNT 


RMB 


1 


LPTBTD 


RMB 


2 


LPTLND 


RMB 


2 


LPTCFW 


RMB 


1 


LPTLCF 


RMB 


1 


LPTWID 


RMB 


1 


LPTPOS 


RMB 


1 


EXECJP 


RMB 


2 



*PV FLOATING POINT ACCUMULATOR #1 
*PV FLOATING POINT ACCUMULATOR #1 
*PV FLOATING POINT ACCUMULATOR #1 



EXPONENT 
MANTISSA 
SIGN 



EXPONENT 
MANTISSA 
SIGN 



SIGN OF RESULT OF FLOATING POINT OPERATION 

FLOATING POINT SUB BYTE (FIFTH BYTE) 

POLYNOMIAL COEFFICIENT POINTER 

CURRENT LINE POINTER DURING LIST 

*PV CURRENT LINE # OF BASIC PROGRAM, $FFFF = DIRECT 

*TV TAB FIELD WIDTH 

*TV TAB ZONE 

*TV PRINT POSITION 

*TV PRINT WIDTH 

*TV PRINT DEVICE: 0=NOT CASSETTE, -1=CASSETTE 

*PV DEVICE NUMBER: -3=DL0AD, -2=PRINTER, 

-1=CASSETTE, 0=SCREEN, 1-15=DISK 
*PV CONSOLE IN BUFFER FLAG: 00=NOT EMPTY, $FF=EMPTY 
*PV WARM START FLAG: $55=WARM, OTHER=COLD 
*PV WARM START VECTOR - JUMP ADDRESS FOR WARM START 
*PV TOP OF RAM 
SPARE: UNUSED VARIABLES 

*PV FILE STATUS FLAG: 0=CLOSED, 1=INPUT, 2=0UTPUT 
*PV CONSOLE IN BUFFER CHAR COUNTER 
*PV CONSOLE IN BUFFER POINTER 

*TV CASS BLOCK TYPE: 0=HEADER, 1=DATA, $FF=EOF 
*TV CASSETTE BYTE COUNT 
*TV CASSETTE LOAD BUFFER POINTER 
*TV CASSETTE CHECKSUM BYTE 
*TV ERROR FLAG/CHARACTER COUNT 
*TV PULSE WIDTH COUNT 
*TV BIT COUNTER 
*TV BIT PHASE FLAG 
*TV LAST SINE TABLE ENTRY 

*TV GRAPHIC BLOCK VALUE FOR SET, RESET AND POINT 
*TV INKEY$ RAM IMAGE 
*PV CURSOR LOCATION 

*PV DUMMY - THESE TWO BYTES ARE ALWAYS ZERO 
*TV TONE VALUE FOR SOUND COMMAND 
*TV DURATION VALUE FOR SOUND COMMAND 



** THESE BYTES ARE MOVED DOWN 



FROM ROM 
INIT 
VALUE 
18 
24 
10 
128 
11 
88 
1 

16 
112 
132 

LB4AA 



DESCRIPTION 

*PV 1200/2400 HERTZ PARTITION 

*PV UPPER LIMIT OF 1200 HERTZ PERIOD 

*PV UPPER LIMIT OF 2400 HERTZ PERIOD 

*PV NUMBER OF $55 'S TO CASSETTE LEADER 

*PV CURSOR BLINK DELAY 

*PV BAUD RATE CONSTANT (600) 

*PV PRINTER CARRIAGE RETURN DELAY 

*PV TAB FIELD WIDTH 

*PV LAST TAB ZONE 

*PV PRINTER WIDTH 

*PV LINE PRINTER POSITION 

*PV JUMP ADDRESS FOR EXEC COMMAND 



** THIS ROUTINE PICKS UP THE NEXT INPUT CHARACTER FROM 
** BASIC. THE ADDRESS OF THE NEXT BASIC BYTE TO BE 
** INTERPRETED IS STORED AT CHARAD. 



GETNCH INC <CHARAD+1 

BNE GETCCH 

INC <CHARAD 

GETCCH FCB $B6 



*PV INCREMENT LS BYTE OF INPUT POINTER 

*PV BRANCH IF NOT ZERO (NO CARRY) 

*PV INCREMENT MS BYTE OF INPUT POINTER 

*PV OP CODE OF LDA EXTENDED 
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0223 


00A6 


0224 




0225 




0225 


00A8 


0227 




0228 


00AB 


0229 


00AC 


0230 


00AD 


0231 


00AE 


0232 




0233 




0234 


00AF 


0235 


00B0 


0235 


00B2 


0237 


00B3 


0238 


00B4 


0239 


00B5 


0240 


00B6 


0241 


00B7 


0242 


00B9 


0243 


00BA 


0244 


00BC 


0245 


00BD 


0246 


00BF 


0247 


00C1 


0248 


00C2 


0249 


00C3 


0250 


00C5 


0251 


00C7 


0252 


00C9 


0253 




0254 




0255 


00CB 


0255 


00CD 


0257 


00CF 


0258 


00D1 


0259 


00D3 


0260 


00D4 


0261 


00D5 


0262 


00D6 


0263 


00D7 


0264 


00D8 


0265 


00D9 


0266 


00DA 


0267 




0268 


00DB 


0269 


00DC 


0270 


00DE 


0271 


00DF 


0272 


00E0 


0273 


00E1 


0274 


00E2 


0275 


00E3 


0276 


00E5 


0277 


00E6 


0278 


00E6 


0279 


00E7 


0280 


00E7 


0281 


00E8 


0282 


00E9 


0283 




0284 




0285 


00EA 


0286 


00EB 


0287 


00EC 


0288 


00ED 


0289 


00EE 


0290 


00F0 


0291 




0292 


00F1 


0293 




0294 


00F3 


0295 




0296 





CHARAD 



7E AA lA 



JMP BROMHK 



VAB 


RMB 


1 


VAC 


RMB 


1 


VAD 


RMB 


1 


VAE 


RMB 


1 


* EXTENDED BASIC Ml 


TRCFLG 


RMB 


1 


USRADR 


RMB 


2 


FORCOL 


RMB 


1 


BAKCOL 


RMB 


1 


WCOLOR 


RMB 


1 


ALLCOL 


RMB 


1 


PMODE 


RMB 


1 


ENDGRP 


RMB 


2 


HORBYT 


RMB 


1 


BEGGRP 


RMB 


2 


GRPRAM 


RMB 


1 


HORBEG 


RMB 


2 


VERBEG 


RMB 


2 


CSSYAL 


RMB 


1 


SETFLG 


RMB 


1 


HOREND 


RMB 


2 


VEREND 


RMB 


2 


HORDEF 


RMB 


2 


VERDEF 


RMB 


2 


* EXTENDED BASIC S( 


VCB 


RMB 


2 


VCD 


RMB 


2 


VCF 


RMB 


2 


VDl 


RMB 


2 


VD3 


RMB 




VD4 


RMB 




VD5 


RMB 




VD6 


RMB 




VD7 


RMB 




VD8 


RMB 




VD9 


RMB 




VDA 


RMB 




CHGFLG 


RMB 




TMPSTK 


RMB 




OCTAVE 


RMB 




VOLHI 


RMB 




VOLLOW 


RMB 




NOTELN 


RMB 




TEMPO 


RMB 




PLYTMR 


RMB 




DOTYAL 


RMB 




HRMODE 


EOU 




DLBAUD 


RMB 




HRWIDTH 


EOU 




TIMOUT 


RMB 




ANGLE 


RMB 




SCALE 


RMB 




* DSKCON 


VARIABLES 


DCOPC 


RMB 


1 


DCDRV 


RMB 


1 


DCTRK 


RMB 


1 


DSEC 


RMB 


1 


DCBPT 


RMB 


2 


DCSTA 


RMB 


1 


FCBTMP 


RMB 


2 




RMB 


13 



*PV THESE 2 BYTES CONTAIN ADDRESS OF THE CURRENT 
CHARACTER WHICH THE BASIC INTERPRETER IS 
PROCESSING 

JUMP BACK INTO THE BASIC RUM 

= LOW ORDER FOUR BYTES OF THE PRODUCT 
= OF A FLOATING POINT MULTIPLICATION 
= THESE BYTES ARE USE AS RANDOM DATA 
= BY THE RND STATEMENT 



*PV TRACE FLAG 0=OFF ELSE=ON 

*PV ADDRESS OF THE START OF USR VECTORS 

*PV FOREGROUND COLOR 

*PV BACKGROUND COLOR 

*TV WORKING COLOR BEING USED BY EX BASIC 

*TV ALL PIXELS IN THIS BYTE SET TO COLOR OF VB3 

*PV PMODE'S MODE ARGUMENT 

*PV END OF CURRENT GRAPHIC PAGE 

*PV NUMBER OF BYTES/HORIZONTAL GRAPHIC LINE 

*PV START OF CURRENT GRAPHIC PAGE 

*PV START OF GRAPHIC RAM (MS BYTE) 

*DV* *PV HORIZ COORD - START POINT 

*DV* *PV VERT COORD - START POINT 

*PV SCREEN'S COLOR SET ARGUMENT 

*PV PRESET/PSET FLAG: 0=PRESET, 1=PSET 

*DV* *PV HORIZ COORD - ENDING POINT 

*DV* *PV VERT COORD - ENDING POINT 

*PV HORIZ COORD - DEFAULT COORD 

*PV VERT COORD - DEFAULT COORD 



*TV FLAG TO INDICATE IF GRAPHIC DATA HAS BEEN CHANGED 

*TV STACK POINTER STORAGE DURING PAINT 

*PV OCTAVE VALUE (PLAY) 

*DV* *PV VOLUME HIGH VALUE (PLAY) 

*DV* *PV VOLUME LOW VALUE (PLAY) 

*PV NOTE LENGTH (PLAY) 

*PV TEMPO VALUE (PLAY) 

*TV TIMER FOR THE PLAY COMMAND 

*TV DOTTED NOTE TIMER SCALE FACTOR 

SUPER EXTENDED BASIC HI-RES MODE 

*DV* *PV DLOAD BAUD RATE CONSTANT $B0=300, $2C=1200 

SUPER EXTENDED BASIC HI-RES TEXT MODE 

*DV* *PV DLOAD TIMEOUT CONSTANT 

*DV* *PV ANGLE VALUE (DRAW) 

*DV* *PV SCALE VALUE (DRAW) 



*PV DSKCON OPERATION CODE 0-3 

*PV DSKCON DRIVE NUMBER 3 

*PV DSKCON TRACK NUMBER 34 

*PV DSKCON SECTOR NUMBER 1-18 

*PV DSKCON DATA POINTER 

*PV DSKCON STATUS BYTE 



TEMPORARY FCB POINTER 
SPARE: UNUSED VARIABLES 



EXTENDED BASIC UNRAVELLED II 



APPENDIX A 
MEMORY MAP 
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0297 




0298 




0299 


0100 


0300 


0103 


0301 


0106 


0302 


0109 


0303 


010C 


0304 


010F 


0305 




0305 


0112 


0307 


0112 


0308 




0309 




0310 


0115 


0311 


0116 


0312 


011A 


0313 


011B 


0314 


011D 


0315 




0316 




0317 




0318 




0319 




0320 




0321 




0322 




0323 




0324 




0325 




0326 




0327 




0328 




0329 




0330 




0331 




0332 




0333 




0334 




0335 




0336 




0337 




0338 




0339 




0340 




0341 




0342 


0120 


0343 


012A 


0344 


0134 


0345 




0346 




0347 


013E 


0348 


0140 


0349 


0142 


0350 


0144 


0351 


0146 


0352 


0148 


0353 


014A 


0354 


014C 


0355 


014E 


0356 


0150 


0357 




0358 




0359 




0360 




0361 




0362 




0363 




0364 




0365 




0366 




0367 




0368 




0369 




0370 





SW3VEC 


RMB 


3 


SW2VEC 


RMB 


3 


SWIVEC 


RMB 


3 


NMIVEC 


RMB 


3 


IRQVEC 


RMB 


3 


FRQVEC 


RMB 


3 


TIMVAL 






USRJMP 


RMB 


3 


* 


RMB 


2 


* 


RMB 


1 


RVSEED 


RMB 


1 




RMB 


4 


CASFLG 


RMB 


1 


DEBVAL 


RMB 


2 


EXPJMP 


RMB 


3 


** 







BASIC EXBASICDOSBASIC 



$XXXX $XXXX $3B3B SWI3 VECTOR 
$XXXX $XXXX $3B3B SWI2 VECTOR 
$XXXX $XXXX $XXXX SWI VECTOR 



$XXXX 

$A9B3 $894C 

$A0F6 $A0F6 



$XXXX $D7AE NMI VECTOR 
D7BC IRQ VECTOR 
A0F6 FIRQ VECTOR 



JUMP ADDRESS FOR BASIC'S USR FUNCTION 

TIMER VALUE FOR EXBAS 

UNUSED BY EXBAS OR DISK BASIC 

* FLOATING POINT RANDOM NUMBER SEED EXPONENT 

* MANTISSA: INITIALLY SET TO $804FC75259 
UPPER CASE/LOWER CASE FLAG: $FF=UPPER, 0=LOWER 
KEYBOARD DEBOUNCE DELAY (SET TO $45E) 

JUMP ADDRESS FOR EXPONENTIATION 

INITIALLY SET TO ERROR FOR BASIC, $8489 FOR EX BASIC 



*** COMMAND INTERPRETATION VECTOR TABLE 
** FOUR SETS OF 10 BYTE TABLES: 



** THE LAST USED TABLE MUST BE FOLLOWED BY A ZERO BYTE 

* THE JUMP TABLE VECTORS (3,4 AND 8,9) POINT TO THE JUMP TABLE FOR 

* THE FIRST TABLE. FOR ALL OTHER TABLES, THESE VECTORS POINT TO A 

* ROUTINE WHICH WILL VECTOR YOU TO THE CORRECT JUMP TABLE. 

* SUPER ENHANCED BASIC HAS MODIFIED THIS SCHEME SO THAT THE USER 

* TABLE MAY NOT BE ACCESSED. ANY ADDITIONAL TABLES WILL HAVE TO BE 

* ACCESSED FROM A NEW COMMAND HANDLER. 

* BYTE DESCRIPTION 

* NUMBER OF RESERVED WORDS 

* 1,2 LOOKUP TABLE OF RESERVED WORDS 

* 3,4 JUMP TABLE FOR COMMANDS (FIRST TABLE) 

* VECTOR TO EXPANSION COMMAND HANDLERS (ALL BUT FIRST TABLE) 

* 5 NUMBER OF SECONDARY FUNCTIONS 

* 6,7 LOOKUP TABLE OF SECONDARY FUNCTIONS (FIRST TABLE) 

* VECTOR TO EXPANSION SECONDARY COMMAND HANDLERS (ALL BUT 

* FIRST TABLE) 

* 8,9 JUMP TABLE FOR SECONDARY FUNCTIONS 

* 10 BYTE - END OF TABLE FLAG (LAST TABLE ONLY) 



COMVEC 



USR FUNCTION VECTOR ADDRESSES (EX BASIC ONLY) 



RMB 


10 


RMB 


10 


RMB 


10 


JNCT 


ION 1 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 



BASIC'S TABLE 

EX BASIC'S TABLE 

DISC BASIC'S TABLE (UNUSED BY EX BASIC) 



USR 


VECTOR 


USR 


1 


USR 


2 


USR 


3 


USR 


4 


USR 


5 


USR 


6 


USR 


7 


USR 


8 


USR 


9 



*** THE ABOVE 20 BYTE USR ADDR VECTOR TABLE IS MOVED TO 
*** $95F-$972 BY DISC BASIC. THE 20 BYTES FROM $13E-$151 
*** ARE REDEFINED AS FOLLOWS: 



RMB 
FCB 

RMB 9 



10 



USER (SPARE) COMMAND INTERPRETATION TABLE SPACE 
END OF COMM INTERP TABLE FLAG 
UNUSED BY DISK BASIC 



COMMAND INTERPRETATION TABLE VALUES 

BYTE BASIC EX BASIDISK BASIC 

53 BASIC TABLE 

1,2 $AA66 

3,4 $AB67 



EXTENDED BASIC UNRAVELLED II 



0371 




0372 




0373 




0374 




0375 




0376 




0377 




0378 




0379 




0380 




0381 




0382 




0383 




0384 




0385 




0385 




0387 




0388 




0389 




0390 


0152 


0391 


015A 


0392 


015B 


0393 


015C 


0394 


015D 


0395 




0396 




0397 




0398 




0399 




0400 




0401 




0402 




0403 




0404 




0405 




0406 




0407 




0408 




0409 




0410 




0411 




0412 


015E 


0413 


0161 


0414 


0164 


0415 


0167 


0416 


016A 


0417 


016D 


0418 


0170 


0419 


0173 


0420 


0176 


0421 


0179 


0422 


017C 


0423 


017F 


0424 


0182 


0425 


0185 


0426 


0188 


0427 


018B 


0428 


018E 


0429 


0191 


0430 


0194 


0431 


0197 


0432 


019A 


0433 


019D 


0434 


01A0 


0435 




0436 




0437 




0438 


01A3 


0439 


01A6 


0440 




0441 


01A9 


0442 


01D1 


0443 


01DA 


0444 


02DA 



* 




5 


* 




6,7 


* 




8,9 


* 







* 




1,2 


* 




3,4 


* 




5 


* 




6,7 


* 




8,9 


* 







* 




1,2 


* 




3,4 


* 




5 


* 




6,7 


* 




8,9 


KEYBUF 


RMB 


8 


POTVAL 


RMB 


1 




RMB 


1 




RMB 


1 




RMB 


1 



APPENDIX A 






MEMORY 


MAP 






20 








$AB1A 








$AA29 










25 




EX BASIC TABLE 




$8183 








$813C 


$CE2E 


($CF0A 2.1) 




14 








$821E 








$8168 


$CE56 


($CF32 2.1) 




19 (20 


2.1) 


DISK BASIC TABLE 




$C17F 








$C2C0 








6 








$C201 








$C236 







ORIGINiSPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



KEYBOARD MEMORY BUFFER 
LEFT VERTICAL JOYSTICK DATA 
LEFT HORIZONTAL JOYSTICK DATA 
RIGHT VERTICAL JOYSTICK DATA 
RIGHT HORIZONTAL JOYSTICK DATA 



BASIC'S RAM VECTORS - INITIALIZED TO RTS BY COLOR BASIC 

25 SETS OF 3 BYTE INSTRUCTIONS WHICH ARE CALLED BY COLOR BASIC 

EXTENDED AND DISK BASIC. THEIR PURPOSE IS TO ALLOW ENHANCEMENTS (SUCH 

AS EX BASIC AND DOS BASIC) AS MORE ROMS ARE ADDED TO THE 

SYSTEM BY EFFECTIVELY ALLOWING MORE CODE TO BE ADDED TO THE 

ROUTINES IN EARLIER ROMS. THIS NEW CODE IS LOCATED IN THE NEW ROMS 

AND THE ADDRESS TO GET TO THE NEW CODE IS IN BYTES 1 & 2 OF THE 

RAM VECTOR. BYTE WILL CONTAIN A $7E WHICH IS THE FIRST BYTE OF 

THE JMP INSTRUCTION. 

THE FIRST ADDRESS IN THIS TABLE IS THE ADDRESS IN BASIC WHICH 

CALLS THE RAM VECTOR, THE SECOND ADDRESS IS THE VALUE WHICH 

EX BASIC PUTS IN THE RAM VECTOR (IF ANY) AND THE THIRD ADDRESS 

IS THE VALUE WHICH DISK BASIC PUTS THERE (IF ANY) 



RVEC0 


RMB 


3 


RVECl 


RMB 


3 


RVEC2 


RMB 


3 


RVEC3 


RMB 


3 


RVEC4 


RMB 


3 


RVEC5 


RMB 


3 


RVEC6 


RMB 


3 


RVEC7 


RMB 


3 


RVEC8 


RMB 


3 


RVEC9 


RMB 


3 


RVEC10 


RMB 


3 


RVECll 


RMB 


3 


RVEC12 


RMB 


3 


RVEC13 


RMB 


3 


RVEC14 


RMB 


3 


RVEC15 


RMB 


3 


RVEC16 


RMB 


3 


RVEC17 


RMB 


3 


RVEC18 


RMB 


3 


RVEC19 


RMB 


3 


RVEC20 


RMB 


3 


RVEC21 


RMB 


3 


RVEC22 


RMB 


3 



RVEC23 


RMB 


3 


RVEC24 


RMB 


3 


STRSTK 


RMB 


8*5 


CFNBUF 


RMB 


9 


CASBUF 


RMB 


256 


LINHDR 


RMB 


2 



2.0 

$A5F6 

$A5B9 

$A35F 

$A282 

$A176 

$A3ED 

$A406 

$A426 

$A42D 

$B918 

$B061 

$A549 

$A390 

$A4BF 

$A5CE 

$B223 

$AC46 

$AC49 

$AE75 

$BD22 

$AD9E 

$A8C4 

$A910 

$8162 

$8AFA 

$975C 

$B821 

$B7C2 



2.1 



$8273 
$8CF1 



$8286 
$8E90 



$8846 

$88F0 
$829C 
$87EF 
$82B9 



$8304 



1.0 

$C426 

$C838 

$C843 

$CB4A 

$C58F 

$C818 

$C81B 

$CA3B 

$CA4B 

$8E90 

$CC5B 

$C859 

$C6B7 

$CA36 

$CA60 

$CDF6 

$C6B7 

$C24D 

$C990 



1.1 

$C44B 

$C888 

$C893 

$CC1C 

$C5BC 

$C848 

$C84B 

$CAE9 

$CAF9 

$8E90 

$CD35 

$C8A9 

$C6E4 

$CAE4 

$C90C 

$CED2 

$C6E4 

$C265 

$CA3E 



$C29A $C2B2 



OPEN COMMAND 

DEVICE NUMBER VALIDITY CHECK 

SET PRINT PARAMETERS 

CONSOLE OUT 

CONSOLE IN 

INPUT DEVICE NUMBER CHECK 

PRINT DEVICE NUMBER CHECK 

CLOSE ALL FILES 

CLOSE ONE FILE 

PRINT 

INPUT 

BREAK CHECK 

INPUTTING A BASIC LINE 

TERMINATING BASIC LINE INPUT 

EOF COMMAND 

EVALUATE AN EXPRESSION 

RESERVED FOR ON ERROR GOTO COMMAND 

ERROR DRIVER 

RUN 

ASCII TO FLOATING POINT CONVERSION 

BASIC'S COMMAND INTERPRETATION LOOP 

RESET/SET/POINT COMMANDS 

CLS 

EXBAS' SECONDARY TOKEN HANDLER 

EXBAS' RENUM TOKEN CHECK 

EXBAS' GET/PUT 

CRUNCH BASIC LINE 

UNCRUNCH BASIC LINE 



STRING DESCRIPTOR STACK 
CASSETTE FILE NAME BUFFER 
CASSETTE FILE DATA BUFFER 
LINE INPUT BUFFER HEADER 



EXTENDED BASIC UNRAVELLED II 



APPENDIX A 
MEMORY MAP 
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0445 


02DC 


0446 


03D7 


0447 




0448 


0400 


0449 




0450 




0451 


0600 


0452 


0700 


0453 


0800 


0454 


084A 


0455 


0894 


0455 


08DE 


0457 


0928 


0458 


0948 


0459 


094A 


0450 


094C 


0461 


0954 


0462 


0957 


0463 




0464 


0958 


0465 


0959 


0466 




0467 


095A 


0468 


095B 


0469 


095C 


0470 


095D 


0471 


095E 


0472 


095F 


0473 




0474 




0475 


0973 


0476 


0974 


0477 


0976 


0478 




0479 


0977 


0480 


0978 


0481 




0482 


097A 


0483 




0484 


097C 


0485 


097E 


0486 


0982 


0487 


0983 


0488 




0489 


0985 


0490 


0986 


0491 


0987 


0492 


0988 


0493 




0494 




0495 




0496 


0989 


0497 




0498 




0499 




0500 




0501 




0502 




0503 




0504 




0505 




0506 




0507 




0508 




0509 




0510 




0511 




0512 




0513 




0514 




0515 




0516 




0517 




0518 





LINBUF 


RMB 


LBUFMX+1 


STRBUF 


RMB 


41 


VIDRAM 


RMB 


200 


*START OF 


ADDITIONAL RAM 


DBUF0 


RMB 


SECLEN 


DBUFl 


RMB 


SECLEN 


FATBL0 


RMB 


FATLEN 


FATBLl 


RMB 


FATLEN 


FATBL2 


RMB 


FATLEN 


FATBL3 


RMB 


FATLEN 


FCBVl 


RMB 


16*2 


RNBFAD 


RMB 


2 


FCBADR 


RMB 


2 


DNAMBF 


RMB 


8 


DEXTBF 


RMB 


3 


DFLTYP 

■k 


RMB 


1 


DASCFL 


RMB 


1 


DRUNFL 

■k 


RMB 


1 


DEFDRV 


RMB 


1 


FCBACT 


RMB 


1 


DRESFL 


RMB 


1 


DLOADFL 


RMB 


1 


DMRGFL 


RMB 


1 


DUSRVC 


RMB 


20 


*** DISK 


FILE WORK AREA 


* EXISTING FILE 


V973 


RMB 


1 


V974 


RMB 


2 


V976 


RMB 


1 


* UNUSED FILE 




V977 


RMB 


1 


V978 


RMB 


2 



BASIC LINE INPUT BUFFER 
STRING BUFFER 

VIDEO DISPLAY AREA 

VARIABLE STORAGE (DISK BASIC ONLY) 
I/O BUFFER #0 
I/O BUFFER #1 

FILE ALLOCATION TABLE - DRIVE 

FILE ALLOCATION TABLE 

FILE ALLOCATION TABLE 

FILE ALLOCATION TABLE 



SYSTEM) 



SHUT DOWN ALL FOBS 
LOAD ERROR 



WFATVL 



RMB 



DFFLEN 


RMB 


2 


DR0TRK 


RMB 


4 


NMIFLG 


RMB 


1 


DNMIVC 

•k 


RMB 


2 


RDYTMR 


RMB 


1 


DRGRAM 


RMB 


1 


DVERFL 


RMB 


1 


ATTCTR 


RMB 


1 



DRIVE 

DRIVE 

DRIVE 
FILE BUFFER VECTORS (15 USER, 
START OF FREE RANDOM FILE BUFFER AREA 
START OF FILE CONTROL BLOCKS 
DISK FILE NAME BUFFER 
DISK FILE EXTENSION NAME BUFFER 
*DV* DISK FILE TYPE: 0=BASIC, 1=DATA, 2=MACHINE 

LANGUAGE, 3=TEXT EDITOR SOURCE FILE 
*DV* ASCII FLAG: 0=CRUNCHED OR BINARY, $FF=ASCII 
RUN FLAG: (IF BIT 1=1 THEN RUN, IF BIT 0=1, THEN CLOSE 
ALL FILES BEFORE RUNNING) 
DEFAULT DRIVE NUMBER 
NUMBER OF FOBS ACTIVE 
RESET FLAG: <>0 WILL CAUSE A 'NEW 
LOAD FLAG: CAUSE A 'NEW FOLLOWING 
MERGE FLAG: 0=N0 MERGE, $FF=MERGE 
DISK BASIC USR COMMAND VECTORS 
FOR DIRECTORY SEARCH 

SECTOR NUMBER 

RAM DIRECTORY IMAGE ADDRESS 

FIRST GRANULE NUMBER 

SECTOR NUMBER 

RAM DIRECTORY IMAGE ADDRESS 

WRITE FAT VALUE: NUMBER OF FREE GRANULES WHICH MUST BE TAKEN 

FROM THE FAT TO TRIGGER A WRITE FAT TO DISK SEQUENCE 

DIRECT ACCESS FILE RECORD LENGTH 

CURRENT TRACK NUMBER, DRIVES 0,1,2,3 

NMI FLAG: 0=DON'T VECTOR <>0=YECTOR OUT 

NMI VECTOR: WHERE TO JUMP FOLLOWING AN NMI 

INTERRUPT IF THE NMI FLAG IS SET 

MOTOR TURN OFF TIMER 

RAM IMAGE OF DSKREG ($FF40) 

VERIFY FLAG: 0=OFF, $FF=ON 

READ/WRITE ATTEMPT COUNTER: NUMBER OF TIMES THE 

DISK WILL ATTEMPT TO RETRIEVE OR WRITE DATA 

BEFORE IT GIVES UP AND ISSUES AN ERROR. 



DFLBUF RMB SECLEN 

*RANDOM FILE RESERVED AREA 
*FILE CONTROL BLOCKS AND BUFFERS 
*GRAPHIC PAGE RESERVED AREA 
*BASIC PROGRAM 
♦VARIABLE STORAGE AREA 
*ARRAY STORAGE AREA 

* FREE MEMORY 

*STACK 

*STRING SPACE 

*USER PROGRAM RESERVED AREA 



INITIALIZED TO SECLEN BY DISKBAS 



EXTENDED BASIC UNRAVELLED II 



APPENDIX A 
MEMORY MAP 
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0519 
0520 
0521 
0522 
0523 
0524 
0525 
0525 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0586 
0587 
0588 
0589 
0590 
0591 
0592 



8000 

8000 
A000 
C000 
C000 
E000 



FE00 
FE02 
FE03 
FE04 
FE05 
FE06 
FE08 
FE09 
FE0A 
FE0B 
FE0C 
FE0E 
FE10 
FEll 
FE13 
FE15 
FE17 
FE18 
FE19 
FE69 
FEED 

FEEE 
FEEE 
FEFl 
FEF4 
FEF7 
FEFA 
FEED 



FF00 
FF00 



*END OF RAM 



ORG 



FF01 



FF02 





RMB 


$2000 




RMB 


$2000 


ROMPAK 


EOU 


■* 


DOSBAS 


RMB 


$2000 




RMB 


$1F00 


* START OF ADDITIONAL 


H.CRSLOC 


RMB 


2 


H.CURSX 


RMB 


1 


H.CURSY 


RMB 


1 


H. COLUMN 


RMB 


1 


H.ROW 


RMB 


1 


H.DISPEN 


RMB 


2 


H.CRSATT 


RMB 


1 




RMB 


1 


H.FCOLOR 


RMB 


1 


H.BCOLOR 


RMB 


1 


H.ONBRK 


RMB 


2 


H.ONERR 


RMB 


2 


H. ERROR 


RMB 


1 


H.ONERRS 


RMB 


2 


H.ERLINE 


RMB 


2 


H.ONBRKS 


RMB 


2 


H.ERRBRK 


RMB 


1 


H.PCOUNT 


RMB 


1 


H.PBUF 


RMB 


80 




RMB 


132 


INT. FLAG 


RMB 


1 


* TABLE OF JUMP 


VECTOI 


INT. JUMP 






INT.SWI3 


RMB 


3 


INT.SWI2 


RMB 


3 


INT.FIRO 


RMB 


3 


INT.IRO 


RMB 


3 


INT.SWI 


RMB 


3 


INT.NMI 


RMB 


3 


* I/O AREA 





EXTENDED BASIC ROM 
COLOR BASIC ROM 



DISK BASIC ROM/ENHANCED BASIC INIT CODE 
ENHANCED BASIC 



lONAL VARIABLES USED BY SUPER EXTENDED BASIC 



CURRENT LOCATION OF CURSOR 

X POSITION OF CURSOR 

Y POSITION OF CURSOR 

COLUMNS ON HI-RES ALPHA SCREEN 

ROWS ON HI -RES ALPHA SCREEN 

END OF HI-RES DISPLAY SCREEN 

CURRENT CURSOR'S ATTRIBUTES 

UNUSED 

FOREGROUND COLOR 

BACKGROUND COLOR 

ON BRK GOTO LINE NUMBER 

ON ERR GOTO LINE NUMBER 

ERROR NUMBER ENCOUNTERED OR $FF (NO ERROR) 

ON ERR SOURCE LINE NUMBER 

LINE NUMBER WHERE ERROR OCCURRED 

ON BRK SOURCE LINE NUMBER 

STILL UNKNOWN, HAS TO DO WITH ERR, BRK 

PRINT COUNT, CHARACTERS TO BE HPRINTED 

PRINT BUFFER, HPRINT CHARS. STORED HERE 

UNUSED 

INTERRUPT VALID FLAG. 0=NOT VALID, $55=VALID 



VECTORS TO INTERRUPT SERVICING ROUTINES 



PIA0 

BIT0 
BITl 
BIT2 
BIT3 
BIT4 
BITS 
BIT6 
BIT7 

BIT0 

BITl 

BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 

BIT0 
BITl 
BIT2 
BIT3 
BIT4 
BITS 
BIT6 
BIT7 



EOU * 

KEYBOARD ROW 
KEYBOARD ROW 
KEYBOARD ROW 
KEYBOARD ROW 
KEYBOARD ROW 
KEYBOARD ROW 



PERIPHERAL INTERFACE ADAPTER ONE 

AND RIGHT JOYSTICK SWITCH 1 
AND LEFT JOYSTICK SWITCH 1 
AND RIGHT JOYSTICK SWITCH 2 
AND LEFT JOYSTICK SWITCH 2 



KEYBOARD ROW 7 

JOTSTICK COMPARISON IINPUT 

CONTROL OF HSYNC (63.5ps) = IRO* TO CPU DISABLED 



INTERRUPT 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

SEL 1 

ALWAYS 1 

ALWAYS 1 

NOT USED 

HORIZONTAL SYNC INTERRUPT FLAG 



1 = IRO* TO CPU ENABLED 

= FLAG SET ON FALLING EDGE OF HS 

1 = FLAG SET ON RISING EDGE OF HS 
= CHANGES FF00 TO DATA DIRECTION 
LSB OF TWO ANALOG MUX SELECT LINES 



KEYBOARD COLUMN 

KEYBOARD COLUMN 

KEYBOARD COLUMN 

KEYBOARD COLUMN 

KEYBOARD COLUMN 

KEYBOARD COLUMN 



KEYBOARD COLUMN 7 / RAM SIZE OUTPUT 
KEYBOARD COLUMN 8 
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0593 
0594 
0595 
0595 
0597 
0598 
0599 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0628 
0629 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
0648 
0649 
0650 
0651 
0652 
0653 
0654 
0655 
0656 
0657 
0658 
0659 
0660 
0661 
0662 
0663 
0664 
0665 
0666 



FF03 



FF04 
FF20 
FF20 

FF20 



FF21 



FF22 



FF23 



FF24 
FF40 
FF40 

FF40 



FF41 



FF48 



BIT0 

BITl 

BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



DA 
PIAl 

BIT0 
BITl 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 

BIT0 

BITl 

BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 

BIT0 
BITl 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 

BIT0 

BITl 

BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



PIA2 
DSKREG 

BIT0 
BITl 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



CONTROL OF VSYNC (16. 667ms) = IRQ* TO CPU DISABLED 



INTERRUPT 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

SEL 2 

ALWAYS 1 

ALWAYS 1 

NOT USED 

FIELD SYNC INTERRUPT FLAG 



1 = IRQ* TO CPU ENABLED 

= FLAG SET ON FALLING EDGE OF FS 

1 = FLAG SET ON RISING EDGE OF FS 
= CHANGES FF02 TO DATA DIRECTION 
MSB OF TWO ANALOG MUX SELECT LINES 



RMB 28 

EOU * 

CASSETTE DATA INPUT 

RS-232C DATA OUTPUT 

6 BIT D/A LSB 

6 BIT D/A 

6 BIT D/A 

6 BIT D/A 

6 BIT D/A 

6 BIT D/A MSB 



CONTROL OF CD 

(RS-232C STATUS) 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

CASSETTE MOTOR CONTROL 

ALWAYS 1 

ALWAYS 1 

NOT USED 

CD INTERRUPT FLAG 

RS-232C DATA INPUT 

SINGLE BIT SOUND OUTPUT 

RAM SIZE INPUT 

RGB MONITOR SENSING INPUT 

VDG CONTROL OUTPUT 

VDG CONTROL OUTPUT 

VDG CONTROL OUTPUT 

VDG CONTROL OUTPUT 

CONTROL OF CARTRIDGE 

INTERRUPT 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

SOUND ENABLE 

ALWAYS 1 

ALWAYS 1 

NOT USED 

CARTRIDGE INTERRUPT FLAG 



PIA0 IMAGES 



PERIPHERAL INTERFACE ADAPTER TWO 



FIRQ* TO CPU DISABLED 

FIRQ* TO CPU ENABLED 

FLAG SET ON FALLING EDGE OF CD 

FLAG SET ON RISING EDGE OF CD 

CHANGES FF20 TO DATA DIRECTION 

OFF 1 = ON 



CSS 
GM0 & 
GMl & 
GM2 
A*/G 



UPPER/LOWER CASE* 
INVERT 



FIRQ* TO CPU DISABLED 

FIRQ* TO CPU ENABLED 

FLAG SET ON FALLING EDGE OF CART* 

FLAG SET ON RISING EDGE OF CART* 

CHANGES FF22 TO DATA DIRECTION 



RMB 28 

RMB 1 

DRIVE SELECT 
DRIVE SELECT 1 
DRIVE SELECT 2 
DRIVE MOTOR ENABLE 
WRITE PRECOMPENSATION 
DENSITY FLAG 
DRIVE SELECT 3 
HALT FLAG 



PIAl IMAGES 



DISK CONTROL REGISTER 



MOTORS OFF 
NO PRECOMP 
SINGLE 



DISABLED 



1 = MOTORS ON 

1 = PRECOMP 

1 = DOUBLE 

1 = ENABLED 



RMB 



7 



DSKREG IMAGES 



* FLOPPY DISK CONTROLLER INTERNAL REGISTERS 

FDCREG RMB 1 STATUS/COMMAND REGISTER 
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0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
0680 
0681 
0682 
0683 
0684 
0685 
0686 
0687 
0688 
0689 

0690 FF49 

0691 FF4A 

0692 FF4B 

0693 FF4C 
0694 

0695 FF50 

0696 FF60 

0697 FF61 

0698 FF62 

0699 FF63 
0700 

0701 FF68 

0702 FF69 

0703 FF6A 

0704 FF6B 

0705 FF6C 

0706 FF70 

0707 FF7D 

0708 FF7E 

0709 FF7F 
0710 

0711 FF80 
0712 
0713 

0714 FF90 
0715 

0716 FF90 BIT0 

0717 BITl 

0718 BIT2 

0719 BIT3 

0720 BIT4 

0721 BIT5 

0722 BIT6 

0723 BIT7 
0724 

0725 

0726 

0727 

0728 

0729 

0730 FF91 

0731 

0732 FF91 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 









APPENDIX A 


ORI 








MEMORY MAP 


REVISED:03/14/ 


COMMANDS 


TYPE 


COMMAND 


CODE 






I 


RESTORE 


$03 






I 


SEEK 


$17 






I 


STEP 


$23 






I 


STEP IN 


$43 






I 


STEP OUT 


$53 






II 


READ SECTOR 


$80 






II 


WRITE SECTOR 


$A0 






III 


READ ADDRESS 


$C0 






III 


READ TRACK 


$E4 






III 


WRITE TRACK 


$F4 






IV 


FORCE INTERRUPT 


$D0 




STATUS 


BIT 


TYPE I 


READ ADDRESS/SECTOR/TRACK 


WRITE SECTOR/TRACK 




S0 


BUSY 


BUSY 


BUSY 




SI 


INDEX 


DRQ 


DRQ 




S2 


TRACK 


LOST DATA 


LOST DATA 




S3 


CRC ERROR 


CRC ERROR (EXCEPT TRACK) 


CRC ERROR (EXCEPT TRACK) 




S4 


SEEK ERROR 


RNF (EXCEPT TRACK) 


RNF (EXCEPT TRACK) 




S5 


HEAD LOADED 


RECORD TYPE (SECTOR ONLY) 


WRITE FAULT 




S6 


WRITE PROTECT 




WRITE PROTECT 




S7 


NOT READY 


NOT READY 


NOT READY 




RMB 




TRACK REGISTER 






RMB 




SECTOR REGISTER 






RMB 




DATA REGISTER 






RMB 




FDCREG IMAGES 






RMB 


16 


UNUSED SPACE 






RMB 




X COORDINATE FOR X-PAD 






RMB 




Y COORDINATE FOR X-PAD 






RMB 




STATUS REGISTER FOR X-PAD 






RMB 


5 


UNUSED 




* RS-232 


PROGRAM PAK 








RMB 




READ/WRITE DATA REGISTER 






RMB 




STATUS REGISTER 






RMB 




COMMAND REGISTER 






RMB 




CONTROL REGISTER 






RMB 










RMB 


13 








RMB 




SOUND/SPEECH CARTRIDGE RESET 




RMB 




SOUND/SPEECH CARTRIDGE READ/WRITE 




RMB 




MULTI-PAK PROGRAMMING REGISTER 




RMB 


64 


RESERVED FOR FUTURE EXPANSION 



ORIGINiSPECTRAL ASSOC 



* VIDEO CONTROL REGISTERS 
INIT0 RMB 1 



MC0 
MCI 
MC2 
MC3 
FEN 
I EN 
M/P 
COCO 

MCI MC0 

X 

1 
1 1 



INITl 

BIT0 
BITl 
BIT2 
BIT3 
BIT4 
BITS 
BIT6 
BIT7 



RMB 
TR 



TINS 



INITIALIZATION REGISTER 

ROM MAP CONTROL (SEE TABLE BELOW) 

ROM MAP CONTROL (SEE TABLE BELOW) 

STANDARD SCS 

1 = DRAM AT 0XFEXX IS CONSTANT 

1 = CHIP FIRQ OUTPUT ENABLED 

1 = CHIP IRQ OUTPUT ENABLED 

1 = MMU ENABLED 

1 = COCO 1 & 2 COMPATIBLE 

ROM MAPPING 

16K INTERNAL, 16K EXTERNAL 

32K INTERNAL 

32L EXTERNAL (EXCEPT FOR VECTORS) 

INITIALIZATION REGISTER 1 

MMU TASK REGISTER SELECT 



TIMER INPUT SELECT: l=70ns, 0=63ns 
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0741 
0742 
0743 
0744 
0745 
0746 
0747 
0748 
0749 
0750 
0751 
0752 
0753 
0754 
0755 
0756 
0757 
0758 
0759 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
0771 
0772 
0773 
0774 
0775 
0775 
0777 
0778 
0779 
0780 
0781 
0782 
0783 
0784 
0785 
0786 
0787 
0788 
0789 
0790 
0791 
0792 
0793 
0794 
0795 
0796 
0797 
0798 
0799 



FF92 
FF92 



IRQENR 



RMB 



FF93 
FF93 



FF94 
FF96 

FF98 

FF98 



FF99 
FF99 



0801 
0802 
0803 
0804 
0805 
0806 
0807 



0809 
0810 
0811 
0812 
0813 
0814 



BIT0 


EI0 




BITl 


Ell 




BIT2 


EI2 




BIT3 


VBORD 




BIT4 


HBORD 




BITS 


TMR 




BIT6 






BIT7 






FIRQENR 


RMB 


1 


BIT0 


EI0 




BITl 


Ell 




BIT2 


EI2 




BIT3 


VBORD 




BIT4 


HBORD 




BITS 


TMR 




BIT6 






BIT7 






V. TIMER 


RMB 


2 




RMB 


2 


VIDEOREG 


RMB 


1 


BIT0 


LPR0 




BITl 


LPRl 




BIT2 


LPR2 




BIT3 


H50 




BIT4 


MOCH 




BITS 


BPI 




BIT6 






BIT7 


BP 




LPR2 


LPRl 


LPR0 

















1 





1 








1 


1 


1 








1 





1 


1 


1 





1 


1 


1 


VIDEOREG 


RMB 


1 


BIT0 


CRES0 




BITl 


CRESl 




BIT2 


HRES0 




BIT3 


HRESl 




BIT4 


HRES2 




BITS 


LPF0 




BIT6 


LPFl 




BIT7 








LPFl 


LPF0 















1 




1 







1 


1 



IRO INTERRUPT ENABLE REGISTER 

CARTRIDGE IRQ ENABLED 
KEYBOARD IRQ ENABLED 
SERIAL DATA IRQ ENABLED 
VERTICAL BORDER IRQ ENABLED 
HORIZONTAL BORDER IRQ ENABLED 
INTERRUPT FROM TIMER ENABLED 



FIRQ INTERRUPT ENABLE REGISTER 

CARTRIDGE FIRQ ENABLED 
KEYBOARD FIRQ ENABLED 
SERIAL DATA FIRQ ENABLED 
VERTICAL BORDER FIRQ ENABLED 
HORIZONTAL BORDER FIRQ ENABLED 
INTERRUPT FROM TIMER ENABLED 



TIMER REGISTER 

RESERVED FOR FUTURE EXPANSION 

VIDEO MODE REGISTER 

LINES PER ROW (SEE TABLE BELOW) 
LINES PER ROW (SEE TABLE BELOW) 
LINES PER ROW (SEE TABLE BELOW) 
1 = 50 Hz VERTICAL REFRESH 
1 = MONOCHROME (ON COMPOSITE) 
1 = BURST PHASE INVERTED 



ALPHA, 



BIT PLANE 



LINES PER CHARACTER ROW 

1 (GRAPHICS MODES) 

2 (COCO 1 & 2 ONLY) 

3 (COCO 1 & 2 ONLY) 



(RESERVED) 

12 

(RESERVED) 

VIDEO MODE REGISTER 

COLOR RESOLUTION 

COLOR RESOLUTION 

HORIZONTAL RESOLUTION 

HORIZONTAL RESOLUTION 

HORIZONTAL RESOLUTION 

LINES PER FIELD (SEE TABLE BELOW) 

LINES PER FIELD (SEE TABLE BELOW) 



LINES PER FIELD 

192 

200 

RESERVED 

225 



VIDEO RESOLUTION 

ALPHA: BP = 0, COCO 

MODE 

32 CHARACTER 

40 CHARACTER 

80 CHARACTER 1 
GRAPHICS: BP = 1, COCO = 

PIXELSxCOLORS HRES2 HRESl HRES0 CRESl 

640x4 1110 

640x2 10 10 



HRES2 HRESl HRES0 CRESl CRES0 
1 

1 1 

1 1 



CRES0 
1 
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0815 
0816 
0817 
0818 
0819 
0820 
0821 
0822 
0823 
0824 
0825 
0825 
0827 
0828 
0829 
0830 
0831 
0832 
0833 
0834 
0835 
0836 
0837 
0838 
0839 
0840 
0841 
0842 
0843 
0844 
0845 
0846 
0847 
0848 
0849 
0850 
0851 
0852 
0853 
0854 
0855 
0856 
0857 
0858 
0859 
0860 
0861 
0862 
0863 
0864 
0865 
0866 
0867 
0868 
0869 
0870 
0871 
0872 
0873 
0874 
0875 
0876 
0877 
0878 
0879 
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MEMORY MAP 


512x4 


1 1 


512x2 


1 


320x16 


1 1 


320x4 


1 


256x16 


1 1 


256x4 


1 


256x2 


1 


160x16 


1 
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COCO MODE SELECTION 





DISPLAY MODE 




REG. 


FF22 










V2 


VI 


V0 


7 


6 


5 


4 


3 


ALPHA 














X 


X 





CSS 


ALPHA INVERTED 














X 


X 





CSS 


SEMIGRAPHICS 4 














X 


X 





X 


64x64 COLOR GRAPHICS 








1 













CSS 


128x64 GRAPHICS 








1 










1 


CSS 


128x64 COLOR GRAPHICS 





1 










1 





CSS 


128x96 GRAPHICS 





1 


1 







1 


1 


CSS 


128x96 COLOR GRAPHICS 


1 










1 








CSS 


128x96 GRAPHICS 


1 





1 




1 





1 


CSS 


128x96 COLOR GRAPHICS 


1 


1 







1 


1 





CSS 


256x192 GRAPHICS 


1 


1 







1 


1 


1 


CSS 



ALPHANUMERIC MODES 

TEXT SCREEN MEMORY 



0881 
0882 
0883 
0884 
0885 
0886 
0887 



EVEN 


BYTE 












BIT0 






CHARACTER BIT 






BITl 






CHARACTER BIT 1 






BIT2 






CHARACTER BIT 2 






BIT3 






CHARACTER BIT 3 






BIT4 






CHARACTER BIT 4 






BIT5 






CHARACTER BIT 5 






BIT6 






CHARACTER BIT 6 






BIT7 














ODD BYTE 












BIT0 






BGND0 BACKGROUND 


COLOR BIT (PALETTE 


ADDR) 


BITl 






BGNDl BACKGROUND 


COLOR BIT (PALETTE 


ADDR) 


BIT2 






BGND2 BACKGROUND 


COLOR BIT (PALETTE 


ADDR) 


BIT3 






FGBD0 FOREGROUND 


COLOR BIT (PALETTE 


ADDR) 


BIT4 






FGNDl FOREGROUND 


COLOR BIT (PALETTE 


ADDR) 


BIT5 






FGND2 FOREGROUND 


COLOR BIT (PALETTE 


ADDR) 


BIT6 






UNDLN CHARACTERS 


ARE UNDERLINED 




BIT7 






BLINK CHARACTERS 


BLINK AT 1/2 SEC. 1 


RATE 


* ATTRIBUTES NOT AVAILABLE 


WHEN COCO = 


1 




GRAPHICS MODES 














16 COLOR MODES: 


(CRES1=1, 


CRES0 = 0) 






BYTE 


FROM 


DRAM 










BIT0 






PA0, 


SECOND PIXEL 






BITl 






PAl, 


SECOND PIXEL 






BIT2 






PA2, 


SECOND PIXEL 






BIT3 






PA3, 


SECOND PIXEL 






BIT4 






PA0, 


FIRST PIXEL 






BIT5 






PAl, 


FIRST PIXEL 






BIT6 






PA2, 


FIRST PIXEL 






BIT7 






PA3, 


FIRST PIXEL 






4 COLOR MODES: 


(CRESl 


=0, CRES0 = 1) 






BYTE 


FROM 


DRAM 










BIT0 






PA0, 


FOURTH PIXEL 






BITl 






PAl, 


FOURTH PIXEL 






BIT2 






PA0, 


THIRD PIXEL 






BIT3 






PAl, 


THIRD PIXEL 






BIT4 






PA0, 


SECOND PIXEL 






BIT5 






PAl, 


SECOND PIXEL 






BIT6 






PA0, 


FIRST PIXEL 






BIT7 






PAl, 


FIRST PIXEL 






2 COLOR MODES: 


CCRESl 


=0, CRES0 = 0) 






BYTE 


FROM 


DRAM 










BIT0 






PA0, 


EIGHTH PIXEL 






BITl 






PA0, 


SEVENTH PIXEL 




BIT2 






PA0, 


SIXTH PIXEL 






BIT3 






PA0, 


FIFTH PIXEL 






BIT4 






PA0, 


FORTH PIXEL 
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0889 
0890 
0891 
0892 
0893 
0894 
0895 
0895 
0897 
0898 
0899 
0900 
0901 
0902 
0903 
0904 
0905 
0905 
0907 
0908 
0909 
0910 
0911 
0912 
0913 
0914 
0915 
0916 
0917 
0918 
0919 
0920 
0921 
0922 
0923 
0924 
0925 
0925 
0927 
0928 
0929 
0930 
0931 
0932 
0933 
0934 
0935 
0935 
0937 
0938 
0939 
0940 
0941 
0942 
0943 
0944 
0945 
0945 
0947 
0948 
0949 
0950 
0951 
0952 
0953 
0954 
0955 
0955 
0957 
0958 
0959 
0950 
0951 
0952 



FF9A 
FF9A 



FF9B 
FF9C 



FF9C 



FF9D 
FF9D 



FF9E 
FF9E 



FF9F 
FF9F 



BIT5 
BIT5 
BIT7 
PALETTE ADDRESSES 

ADDRESS 

FFB0 

FFBl 

FFB2 

FFB3 

FFB4 

FFB5 

FFB6 

FFB7 

FFB8 

FFB9 

FFBA 

FFBB 

FFBC 

FFBD 

FFBE 

FFBF 



PA0, THIRD PIXEL 
PA0, SECOND PIXEL 
PA0, FIRST PIXEL 



PA3 



PA2 



PAl 



PA0 



1 



1 



1 



1 



1 



1 



1 



1 



V. BORDER 


RMB 1 


BIT0 




BLU0 


BITl 




GRN0 


BIT2 




RED0 


BIT3 




BLUl 


BIT4 




GRNl 


BIT5 




REDl 


BIT6 






BIT7 




RMB 1 


V. SCROLL 


RMB 1 


BIT0 




VSC0 


BITl 




VSCl 


BIT2 




VSC2 


BIT3 




VSC3 


BIT4 






BIT5 






BIT6 






BIT7 






* IN 


COCO 


MODE, Tl 



BORDER REGISTER 

BLUE LSB 
GREEN LSB 
RED LSB 
BLUE MSB 
GREEN MSB 
RED MSB 



RESERVED 

VERTICAL SCROLL REGISTER 



V.OFSETl RMB 



THE VSC'S MUST BE INITIALIZED TO $0F 

VERTICAL OFFSET 1 REGISTER 



BIT0 
BITl 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



Yll 
Y12 
Y13 
Y14 
Y15 
Y16 
Y17 
Y18 



V.OFSET0 RMB 



VERTICAL OFFSET REGISTER 



BIT0 
BITl 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



Y3 
Y4 
Y5 
Y6 
Y7 
Y8 
Y9 
Y10 



* IN COCO MODE, Y9-Y15 ARE NOT 
SAM BITS F0-F5. ALSO IN COCO 



H.OFSET0 RMB 



BIT0 
BITl 



X0 
XI 



EFFECTIVE, AND ARE CONTROLLED BY 
MODE, Y16-Y18 SHOULD BE 1, ALL OTHERS 

HORIZONTAL OFFSET REGISTER 

HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
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0963 
0954 
0955 
0955 
0957 
0958 
0959 
0970 
0971 
0972 
0973 
0974 
0975 
0975 
0977 
0978 
0979 
0980 
0981 
0982 
0983 
0984 
0985 
0985 
0987 
0988 
0989 
0990 
0991 
0992 
0993 
0994 
0995 
0995 
0997 
0998 
0999 
1000 
1001 
1002 
1003 
1004 
1005 
1005 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1015 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1025 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1035 



FFA0 



FFB0 



FFC0 

FFC0 
FFCl 
FFC2 
FFC3 
FFC4 
FFC5 



BIT2 


X2 


BIT3 


X3 


BIT4 


X4 


BIT5 


X5 


BIT6 


X5 


BIT7 


XVEN 



HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
HORIZONTAL VIRTUAL ENABLE 
HVEN ENABLES A HORIZONTAL SCREEN WIDTH OF 128 BYTES REGARDLESS OF THE 
HRES BITS AND CRES BITS SELECTED. THIS WILL ALLOW A 'VIRTUAL' SCREEN 
SOMEWHAT LARGER THAN THE DISPLAYED SCREEN. THE USER CAN MOVE THIS 
'WINDOW' (THE DISPLAYED SCREEN) BY MEANS OF THE HORIZONTAL OFFSET 
BITS. IN CHARACTER MODE, THE SCREEN WIDTH IS 128 CHARACTERS REGARDLESS 
OF ATTRIBUTE COR 54, IF DOUBLE-WIDE IS SELECTED). 



MMUREG 



RMB 15 



MEMORY MANAGEMENT UNIT REGISTERS (5 BITS) 



* RELATIONSHIP BETWEEN DATA IN TASK REGISTER AND GENERATED ADDRESS 

BIT D5 D4 D3 D2 Dl D0 

CORRESPONDING 

MEMORY ADDRESS A18 A17 A15 A15 A14 A13 

* DATA FROM THE MMU IS THEN USED AS THE UPPER 5 ADDRESS LINES (A13-A18) 
FOR MEMORY ACCESS 



ADDRESS 


RANGE 


TR 


A15 


A14 


A13 


MMU LOCATION 


X0000 - 


XIFFF 














FFA0 


X2000 - 


X3FFF 











1 


FFAl 


X4000 - 


X5FFF 








1 





FFA2 


X5000 - 


X7FFF 








1 


1 


FFA3 


X8000 - 


X9FFF 





1 








FFA4 


XA000 - 


XBFFF 





1 





1 


FFA5 


XC000 - 


XDFFF 





1 


1 





FFA6 


XE000 - 


XFFFF 





1 


1 


1 


FFA7 


X0000 - 


XIFFF 













FFA8 


X2000 - 


X3FFF 










1 


FFA9 


X4000 - 


X5FFF 







1 





FFAA 


X5000 - 


X7FFF 







1 


1 


FFAB 


X8000 - 


X9FFF 




1 








FFAC 


XA000 - 


XBFFF 




1 





1 


FFAD 


XC000 - 


XDFFF 




1 


1 





FFAE 


XE000 - 


XFFFF 




1 


1 


1 


FFAF 



PALETREG RMB 15 



COLOR PALETTE REGISTERS (5 BITS) 





DATA BIT 


D5 D4 D3 D2 Dl 




RGB OUTPUT 


Rl Gl Bl R0 G0 




COMP. OUTPUT 


11 10 P3 P2 PI 


FOR COCO COMPATIBILITY, THE 


FOLLOWING SHOULD BE LOADED ON IN 


(RGB VALUES) 


FOR PAL VERSION 


, IGNORE TABLE FOR COMPOSITE 


FFB0 


GREEN 


$12 


FFBl 


YELLOW 


$35 


FFB2 


BLUE 


$09 


FFB3 


RED 


$24 


FFB4 


BUFF 


$3F 


FFB5 


CYAN 


$10 


FFB5 


MAGENTA 


$2D 


FFB7 


ORANGE 


$25 


FFB8 


BLACK 


$00 


FFB9 


GREEN 


$12 


FFBA 


BLACK 


$00 


FFBB 


BUFF 


$3F 


FFBC 


BLACK 


$00 


FFBD 


GREEN 


$12 


FFBE 


BLACK 


$00 


FFBF 


ORANGE 


$25 



D0 



P0 



INITIALIZATION 



SAMREG 



EQU 



V0CLR 


RMB 




V0SET 


RMB 




VICLR 


RMB 




VISET 


RMB 




V2CLR 


RMB 




V2SET 


RMB 





SAM CONTROL REGISTERS 

CLEAR COCO GRAPHICS MODE V0 
SET COCO GRAPHICS MODE V0 
CLEAR COCO GRAPHICS MODE VI 
SET COCO GRAPHICS MODE VI 
CLEAR COCO GRAPHICS MODE V2 
SET COCO GRAPHICS MODE V2 



EXTENDED BASIC UNRAVELLED II 



APPENDIX A 
MEMORY MAP 



ORIGINiSPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



1037 


FFC6 


F0CLR 


RMB 




1038 


FFC7 


F0SET 


RMB 




1039 


FFC8 


FICLR 


RMB 




1040 


FFC9 


FISET 


RMB 




1041 


FFCA 


F2CLR 


RMB 




1042 


FFCB 


F2SET 


RMB 




1043 


FFCC 


F3CLR 


RMB 




1044 


FFCD 


F3SET 


RMB 




1045 


FFCE 


F4CLR 


RMB 




1045 


FFCF 


F4SET 


RMB 




1047 


FFD0 


F5CLR 


RMB 




1048 


FFDl 


F5SET 


RMB 




1049 


FFD2 


F6CLR 


RMB 




1050 


FFD3 


F6SET 


RMB 




1051 


FFD4 




RMB 




1052 


FFD8 


RICLR 


RMB 




1053 


FFD9 


RISET 


RMB 




1054 


FFDA 




RMB 




1055 


FFDE 


ROMCLR 


RMB 




1055 


FFDF 


ROMSET 


RMB 




1057 










1058 


FFE0 




RMB 


18 


1059 




* 


INTERRUPT VECTORS 


1060 


FFF2 


SWI3 


RMB 


2 


1061 


FFF4 


SWI2 


RMB 


2 


1062 


FFF6 


FIRQ 


RMB 


2 


1063 


FFF8 


IRQ 


RMB 


2 


1064 


FFFA 


SWI 


RMB 


2 


1065 


FFFC 


NMI 


RMB 


2 


1066 


FFFE 


RESETV 


RMB 


2 



CLEAR COCO GRAPHICS OFFSET F0 
SET COCO GRAPHICS OFFSET F0 
CLEAR COCO GRAPHICS OFFSET Fl 
SET COCO GRAPHICS OFFSET Fl 
CLEAR COCO GRAPHICS OFFSET F2 
SET COCO GRAPHICS OFFSET F2 
CLEAR COCO GRAPHICS OFFSET F3 
SET COCO GRAPHICS OFFSET F3 
CLEAR COCO GRAPHICS OFFSET F4 
SET COCO GRAPHICS OFFSET F4 
CLEAR COCO GRAPHICS OFFSET F5 
SET COCO GRAPHICS OFFSET F5 
CLEAR COCO GRAPHICS OFFSET F6 
SET COCO GRAPHICS OFFSET F6 
RESERVED 

CLEAR CPU RATE, (0.89 MHz) 
SET CPU RATE, (1.78 MHz) 
RESERVED 
ROM DISABLED 
ROM ENABLED 

RESERVED FOR FUTURE MPU ENHANCEMENTS 
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misz 
mii3 



EXBAS 



ORG 
FCC 



'EX' 



0005 


8002 


8E 


80 


DE 


0006 


8005 


CE 


01 


2A 


0007 


8008 


C6 


0A 




0008 


800A 


BD 


A5 


9A 


0009 


800D 


8E 


B2 


77 


0010 


8010 


AF 


43 




0011 


8012 


AF 


48 




0012 


8014 


8E 


89 


4C 


0013 


8017 


BF 


01 


0D 


0014 


801A 


9E 


8A 




0015 


801C 


BF 


01 


12 


0016 


801F 


BD 


82 


9C 


0017 


8022 


CC 


2C 


05 


0018 


8025 


DD 


E6 




0019 


8027 


8E 


01 


3E 


0020 


802A 


9F 


B0 




0021 










0022 


802C 


CE 


B4 


4A 


0023 


802F 


C6 


0A 




0024 


8031 


EF 


81 




0025 


8033 


5A 






0026 


8034 


26 


FB 




0027 










0028 










0029 


8036 


86 


7E 




0030 


8038 


B7 


01 


9A 


0031 


803B 


8E 


82 


B9 


0032 


803E 


BF 


01 


9B 


0033 


8041 


B7 


01 


8B 


0034 


8044 


8E 


88 


46 


0035 


8047 


BF 


01 


8C 


0036 


804A 


B7 


01 


97 


0037 


804D 


8E 


87 


E5 


0038 


8050 


BF 


01 


98 


0039 


8053 


B7 


01 


79 


0040 


8056 


8E 


8E 


90 


0041 


8059 


BF 


01 


7A 


0042 


805C 


B7 


01 


91 


0043 


805F 


8E 


88 


F0 


0044 


8062 


BF 


01 


92 


0045 


8065 


B7 


01 


6A 


0046 


8068 


8E 


8C 


Fl 


0047 


806B 


BF 


01 


6B 


0048 


806E 


B7 


01 


67 


0049 


8071 


8E 


82 


73 


0050 


8074 


BF 


01 


68 


0051 


8077 


B7 


01 


76 


0052 


807A 


8E 


82 


86 


0053 


807D 


BF 


01 


77 


0054 


8080 


B7 


01 


A3 


0055 


8083 


8E 


83 


04 


0056 


8086 


BF 


01 


A4 


0057 


8089 


B7 


01 


94 


0058 


808C 


8E 


82 


9C 


0059 


808F 


BF 


01 


95 


0060 


8092 


B7 


01 


ID 


0061 


8095 


8E 


84 


89 


0062 


8098 


BF 


01 


IE 


0063 


809B 


BD 


96 


E6 


0064 


809E 


B6 


FF 


03 


0065 


80A1 


8A 


01 




0066 


80A3 


B7 


FF 


03 


0067 


80A6 


8E 


44 


4B 


0068 


80A9 


BC 


C0 


00 


0069 


80AC 


10 


27 


3F 52 


0070 


80B0 


IC 


AF 




0071 


80B2 


8E 


80 


E7 


0072 


80B5 


BD 


B9 


9C 


0073 


80B8 


8E 


80 


C0 


0074 


80BB 


9F 


72 




0075 


80BD 


7E 


A0 


E2 


0076 










0077 


80C0 


12 






0078 


80C1 


0F 


E3 




0079 


80C3 


0F 


E4 




0080 


80C5 


B6 


FF 


03 


0081 


80C8 


8A 


01 




0082 


80CA 


B7 


FF 


03 


0083 


80CD 


7E 


A0 


E8 


0084 










0085 










0086 


80D0 


96 


68 




0087 


80D2 


4C 






0088 


80D3 


27 


08 




0089 


80D5 


IF 


20 




0090 


80D7 


93 


19 




0091 


80D9 


D3 


A6 




0092 


80DB 


DD 


A6 




0093 


80DD 


39 






0094 










0095 


80DE 


19 






0096 


80DF 


81 


83 





* MOVE EXTENDED BASIC'S COMMAND 
L8002 LDX #L80DE 

LOU #COMVEC+10 
LOB #10 
JSR LA59A 
LDX #LB277 
STX $03, U 
STX $08, U 
LDX #XIRQSV 
STX IRQVEC+1 
LDX ZERO 
STX TIMVAL 
JSR XVEC18 
LDD #$2C05 
STD DLBAUD 
LDX #USR0 
STX USRADR 

* INITIALIZE THE USR CALLS TO FC ERROR 

LOU #LB44A 
#10 
,X++ 



L8031 



LOB 
STU 
DECB 
BNE 



L8031 



INTERPRETATION TABLE FROM ROM TO RAM 
ROM ADDRESS 
RAM ADDRESS 
10 BYTES TO MOVE 
MOVE B BYTES FROM (X) TO (U) 
ADDRESS OF SYNTAX ERROR 
PUT SYNTAX ERROR IN ADDRESS OF DISK 
BASIC S COMMAND INTERPRETATION LOOPS 
*PUT EXBASIC S IRO SERVICING ROUTINE 
♦ADDRESS IN THE IRO VECTOR 
GET X=0 

INITIALIZE TIMER = 
INITIALIZE A BUNCH OF VARIABLES 
♦INITIALIZE DLOAD TO 1200 BAUD AND 
♦TIMEOUT CONSTANT TO 5 
=INITIALIZE ADDRESS OF START OF 
=USR JUMP TABLE 



ADDRESS OF FC ERROR ROUTINE 

10 USR CALLS IN EX BASIC 

STORE FC ERROR AT USR ADDRESSES 

FINISHED ALL 10? 

NO 



MODIFY THE RAM HOOKS FOR THE 
LDA #$7E 

RVEC20 

#XVEC20 

RVEC20+1 

RVEC15 

#XVEC15 

RVEC15+1 

RVEC19 

#XVEC19 

RVEC19+1 

RVEC9 

#XVEC9 

RVEC9+1 

RVEC17 

#XVEC17 

RVEC17+1 

RVEC4 

#XVEC4 

RVEC4+1 

RVEC3 

#XVEC3 

RVEC3+1 

RVEC8 

#XVEC8 

RVEC8+1 

RVEC23 

#XVEC23 

RVEC23+1 

RVEC18 

#XVEC18 

RVEC18+1 

EXPJMP 

#L8489 

EXPJMP+1 

L96E6 

PIA0+3 

#$01 

PIA0+3 

#'DK' 
CMPX DOSBAS 
LBEO DOSBAS+2 
ANDCC#$AF 
LDX #L80E6+1 
JSR STRINOUT 

#XBWMST 

RSTVEC 

LA0E2 

* EXBAS WARM START ENTRY POINT 
XBWMST NOP 

PLYTMR 

PLYTMR+1 

PIA0+3 

#$01 

PIA0+3 

BAWMST 



STA 
LDX 
STX 
STA 
LDX 
STX 
STA 
LDX 
STX 
STA 
LDX 
STX 
STA 
LDX 
STX 
STA 
LDX 
STX 
STA 
LDX 
STX 
STA 
LDX 
STX 
STA 
LDX 
STX 
STA 
LDX 
STX 
STA 
LDX 
STX 
JSR 
LDA 
ORA 
STA 
LDX 



LDX 
STX 
JMP 



CLR 
CLR 
LDA 
ORA 
STA 
JMP 



NEW ROUTINES CONTAINED IN EXT BASIC 
OP CODE OF JMP 



= COMMAND INTERPRETATION LOOP 



EXPRESSION EVALUATION 



= ASCII TO FLOATING POINT CONVERSION 



THIS CODE IS A PATCH TO FIX THE PCLEAR BUG 



LDA 
INCA 
BEO 
TFR 



CURLIN 



L80DE 
L80DF 



L80DD 

Y,D 
SUED TXTTAB 
ADDD CHARAD 
STD CHARAD 
RTS 

FCB 25 
FOB L8183 



= ERROR DRIVER 



= CONSOLE OUT 



CLOSE A FILE 



= CRUNCH A BASIC LINE 



* RUN 

STORE OP CODE OF JMP 

GET EXPONENTIATION ADDRESS 

SAVE IT 

GO INITIALIZE EXBAS GRAPHICS VARIABLES 

* ENABLE PIA0 TO 

* PASS 60HZ 

* INTERRUPT TO MPU 

FIRST TWO BYTES OF DISK ROM 

COMPARE TO DISK ROM ADDRESS 

BRANCH IF DISK BASIC EXISTS 

ENABLE INTERRUPTS 

POINT TO SIGN ON MESSAGE 

DISPLAY IT 

GET EXBAS WARM START (RESET) VECTOR 

SAVE IT 

SET WARM START FLAG, ENTER BASIC 

WARM START ENABLE 

= CLEAR PLAY TIMER 

* ENABLE PIA0 TO 

* PASS 60HZ 

* INTERRUPT TO MPU 

JUMP TO BASIC S WARM START 



GET THE CURRENT LINE NUMBER 

TEST FOR DIRECT MODE 

RETURN IF DIRECT MODE 

SAVE OFFSET IN ACCD 

SUBTRACT OUT START OF BASIC 

ADD THE CURRENT BASIC INPUT POINTER 

SAVE NEW BASIC INPUT POINTER 



25 EXBAS COMMANDS 

EXBAS RESERVED WORD DICTIONARY TABLE 
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BB99 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 



80E1 81 3C 
80E3 0E 
80E4 82 IE 
80E6 81 68 



L80E1 FDB L813C 

L80E3 FCB 14 

L80E4 FDB L821E 

L80E6 FDB L8168 



EXBAS RESERVED WORD HANDLER 

14 EXBAS SECONDARY COMMANDS 

EXBAS SECONDARY RESERVED WORD TABLE 

EXBAS SECONDARY RESERVED WORD HANDLER 



80E8 45 58 54 45 4E 44 L80E8 
80EE 45 44 20 43 4F 4C 
80F4 4F 52 20 42 41 53 
80FA 49 43 20 31 2E 31 

8100 00 L8100 

8101 43 4F 50 59 52 49 L8101 
8107 47 48 54 20 28 43 

8100 29 20 31 39 38 32 

8113 20 42 59 20 54 41 

8119 4E 44 59 

811C 00 L811C 

8110 55 4E 44 45 52 20 L811D 

8123 4C 49 43 45 4E 53 

8129 45 20 46 52 4F 40 

812F 20 40 49 43 52 4F 

8135 53 4F 46 54 

8139 00 00 00 L8139 



FCC 



FCB 
FCC 



FCB 
FCC 



'EXTENDED COLOR BASIC 1.1' 



CR 

'COPYRIGHT (C) 



CR 
'UNDER 



LICENSE FROM MICROSOFT' 



813C 
813E 
8140 
8143 
8145 
8148 
814A 
814C 
814E 
8150 
8154 
8156 
8158 
815C 
815E 
8162 
8165 



81 CB 

22 08 

8E 81 F0 

80 B5 

7E AD 04 

81 FF 
27 08 
81 CO 

23 15 

6E 9F 01 37 

90 9F 

81 90 

10 27 05 7A 

81 9F 

10 27 07 FE 

BO 01 A0 

7E B2 77 



8168 CI 42 
816A 23 04 
816C 6E 9F 01 
8170 C0 28 
8172 CI 10 
8174 22 07 
8176 34 04 
8178 BO B2 62 
817B 35 04 
8170 8E 82 57 
8180 7E B2 CE 



FCB 


CR,CR,0 


:OMMA 


10 INTERPRET 


CMPA 


#$CB 


BHI 


L8148 


LDX 


#L81F0 


SUBA 


#$B5 


JMP 


LA0D4 


CMPA 


#$FF 


BEO 


L8154 


CMPA 


#$CD 


BLS 


L8165 


JMP 


[COMVEC+23] 


JSR 


GETNCH 


CMPA 


#$90 


LBEQ 


L8606 


CMPA 


#$9F 


LBEQ 


L8960 


JSR 


RVEC22 


JMP 


LB277 


SECONDARY COMMAND 


CMPB 


#2*33 


BLS 


L8170 


JMP 


[COMVEC+28] 


SUBB 


#2*20 


CMPB 


#2*8 


BHI 


L8170 


PSHS 


B 


JSR 


LB262 


PULS 


B 


LDX 


#L8257 


JMP 


LB2CE 



RESERVED WORD TABLE FOR EXTENDED BASIC 



8183 
8186 
818A 
818E 
8193 
8196 
8199 
8190 
81A1 
81A5 
81AB 
81B1 
81B7 
81BC 
81C2 
81C7 
81CA 
81CD 
8101 
8106 
81DB 
81DF 
81E4 
81E9 
81EB 



44 45 

45 44 
54 52 

54 52 
44 45 
4C 45 
4C 49 
50 43 
50 53 
50 52 
53 43 
50 43 
43 4F 

43 49 
50 41 
47 45 
50 55 

44 52 
50 43 
50 40 
50 4C 
44 4C 
52 45 

46 CE 

55 53 



CC 

49 04 

4F CE 

4F 46 C6 

C6 

04 

4E C5 

4C 03 

45 04 

45 53 45 04 

52 45 45 CE 

4C 45 41 02 

4C 4F 02 

52 43 4C C5 

49 4E 04 

04 

04 

41 07 

4F 50 09 

4F 44 C5 

41 09 

4F 41 C4 

4E 55 CD 

49 4E C7 



L8183 
L8186 
L818A 
L818E 
L8193 
L8196 
L8199 
L819D 
L81A1 
L81A5 
L81AB 
L81B1 
L81B7 
L81BC 
L81C2 
L81C7 
L81CA 
L81CD 
L81D1 
L81D6 
L81DB 
L81DF 
L81E4 
L81E9 
L81EB 



FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 



'OE' ,$80+'L' 
'EDI' ,$80+'T' 
'TRO' ,$80+' N' 
'TROF' ,$80+' F' 
'OE' ,$80+' F' 
'LE' ,$80+'T' 
'LIN' ,$80+'E' 
'PCL' ,$80+'S' 
'PSE' ,$80+'T' 
'PRESE' ,$80+'T' 
'SCREE' ,$80+'N' 
'PCLEA' ,$80+'R' 
'COLO' ,$80+'R' 
'CIRCL' ,$80+'E' 
'PAIN' ,$80+'T' 
'GE' ,$80+'T' 
'PU' ,$80+'T' 
'DRA' ,$80+' W' 
'PCOP' ,$80+'Y' 
'PMOO' ,$80+' E' 
'PLA' ,$80+'Y' 
'OLOA' ,$80+' 0' 
'RENU' ,$80+' M' 
'F' ,$80+' N' 
'USIN' ,$80+'G' 



DISPATCH TABLE FOR EXTENDED BASIC COMMANDS 



81F0 89 70 
81F2 85 33 
81F4 86 A7 
81F6 86 A8 
81F8 88 71 
81FA AF 89 
81FC 93 BB 
81FE 95 32 
8200 93 61 
8202 93 65 
8204 96 70 



L81F0 


FDB 


DEL 


L81F2 


FDB 


EDIT 


L81F4 


FDB 


TRON 


L81F6 


FOB 


TROFF 


L81F8 


FOB 


DEF 


L81FA 


FDB 


LET 


L81FC 


FOB 


LINE 


L81FE 


FOB 


PCLS 


L8200 


FOB 


PSET 


L8202 


FOB 


PRESET 


L8204 


FDB 


SCREEN 



$CB IS LARGEST EX BASIC COMMAND TOKEN 

BRANCH IF > LARGEST TOKEN 

POINT X TO EXBAS DISPATCH TABLE FOR COMMANDS 

$B5 IS SMALLEST EXBAS TOKEN 

INTERPRET BASIC TOKEN HANDLER 

CHECK FOR SECONDARY TOKEN 

BRANCH IF IT IS SECONDARY 

LARGEST EXBAS TOKEN 

SYNTAX ERROR FOR USING S FN 
GO TO DISK BASIC RESERVED WORD HANDLER 
GET AN INPUT CHARACTER FROM BASIC 
TOKEN FOR MIO$ 
BRANCH IF MIO$ 
TOKEN FOR TIMER 
BRANCH IF TIMER 
HOOK INTO RAM 

SYNTAX ERROR 



*80+33 IS LARGEST EXBAS SECONDARY COMMAND 

BRANCH IF LEGITIMATE EXBAS SECONDARY TOKEN 

GO TO DISK BASIC SECONDARY COMMAND HANDLER 

SUBTRACT OUT 20 BASIC SECONDARY COMMANDS 

HEX$ TOKEN 

BRANCH IF > HEX$ 

SAVE TOKEN OFFSET 

EVALUATE EXPRESSION IN PARENTHESES 

GET TOKEN OFFSET BACK 

EXBAS SECONDARY COMMAND JUMP TABLE 

JUMP TO SECONDARY FUNCTION HANDLER 



TOKEN # 

B5 

B6 

B7 



B9 
BA 



BE 




BF 




00 




01 




02 




03 




04 




05 




06 




07 




08 




09 




OA 




OB 




00 




OD 






TOKEN # 


DEL 


B5 


EDIT 


B6 


TRON 


B7 


TROFF 


B8 


DEF 


B9 


LET 


BA 


LINE 


BB 


PCLS 


BC 


PSET 


BO 


PRESET 


BE 


SCREEN 


BF 
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0193 
B194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 



8206 96 SB 
8208 95 46 
820A 9E 9D 
820C 98 EC 
820E 97 55 
8210 97 58 
8212 9C B6 
8214 97 23 
8216 96 21 
8218 9A 22 
821A 8C 18 
821C 8A 09 



L8206 


FOB 


PCLEAR 


L8208 


FDB 


COLOR 


L820A 


FDB 


CIRCLE 


L820C 


FDB 


PAINT 


L820E 


FDB 


GET 


L8210 


FDB 


PUT 


L8212 


FDB 


DRAW 


L8214 


FDB 


PCOPY 


L8216 


FDB 


PMOD 


L8218 


FDB 


PLAY 


L821A 


FDB 


DLOAD 


L821C 


FDB 


RENUM 



COLOR 


CI 


CIRCLE 


C2 


PAINT 


C3 


GET 


C4 


PUT 


C5 


DRAW 


C6 


PCOPY 


C7 


PMODE 


C7 


PLAY 


C9 


DLOAD 


CA 


RENUM 


CB 



* SECONDARY FUNCTION FOR EXTENDED BASIC 

* TOKENS ARE PRECEEDED WITH AN $FF BYTE 



821E 
8221 
8224 
8227 
822A 
8220 
8230 
8233 
8236 
823A 
8240 
8245 
824A 
8250 
8256 



8257 
8259 
825B 
8250 
825F 
8261 
8263 
8265 
8267 
8269 
826B 
8260 
826F 
8271 



41 54 CE 
43 4F 03 
54 41 CE 

45 58 00 

46 49 08 
4C 4F C7 
50 4F 03 

53 51 02 

48 45 58 A4 

56 41 52 50 54 02 

49 4E 53 54 02 

54 49 40 45 02 

50 50 4F 49 4E 04 
53 54 52 49 4E 47 
A4 



L821E 
L8221 
L8224 
L8227 
L822A 
L822D 
L8230 
L8233 
L8236 
L823A 
L8240 
L8245 
L824A 
L8250 



FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 



•AT' 
•CO' 
•TA^ 
•EX^ 
•FT 
•LO^ 
•PO^ 
•SQ^ 
•HEX^ 



,$80+^ 

• ,$80+^ 

• ,$80+^ 

• ,$80+^ 

• ,$80+^ 

• ,$80+^ 

• ,$80+^ 
• ,$80+^ 
X^ ,$80+^$^ 

•VARPT^ ,$80+^R^ 
•INST^ ,$80+^R^ 
•TIME^ ,$80+^R^ 
•PPOIN^ ,$80+^T^ 
•STRING^ ,$80+^$^ 



JUMP TABLE FOR EXTENDED BASIC SECONDARY 



83 B0 
83 78 

83 81 

84 F2 

85 24 
84 46 

86 AC 
84 80 
8B DO 

86 BE 

87 7E 
89 68 
93 39 
87 4E 



8273 00 6F 
8275 10 27 13 33 
8279 34 04 
827B 06 6F 
8270 CI FD 
827F 35 04 
8281 26 02 
8283 32 62 

8285 39 



8286 96 6F 

8288 4C 

8289 26 FA 
828B 96 78 
8280 81 02 
828F 26 F4 
8291 96 79 
8293 26 F0 
8295 0F 6F 
8297 32 62 
8299 7E A4 44 

829C CC BA 42 
829F DO OF 
82A1 86 02 
82A3 97 E2 
82A5 97 OE 
82A7 48 
82A8 97 El 
82AA 0F E5 
82AC DC 8A 
82AE DO E8 
82B0 C6 80 
82B2 DO C7 
82B4 C6 60 
82B6 DO C9 
82B8 39 

82B9 32 62 
82BB IC AF 
82BD BO AD EB 
82C0 9E A6 
82C2 9F 2F 
82C4 A6 80 



L8257 
L8259 
L825B 
L825D 
L825F 
L8261 
L8263 
L8265 
L8267 
L8269 
L826B 
L826D 
L826F 
L8271 



FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 



ATN 

COS 

TAN 

EXP 

FIX 

LOG 

POS 

SOR 

HEXDOL 

VARPTR 

INSTR 

TIMER 

PPOINT 

STRING 



TOKEN # 




94 




95 




96 




97 




98 




99 




9A 




9B 




90 




9D 




9E 




9F 




A0 




Al 




FUNCTIONS 




TOKEN # 


ATN 


94 


COS 


95 


TAN 


96 


EXP 


97 


FIX 


98 


LOG 


99 


POS 


9A 


SQR 


9B 


HEXDOL 


9C 


VARPT 


90 


INSTR 


9E 


TIMER 


9F 


PPOINT 


A0 


STRING 


Al 



CONSOLE OUT RAM HOOK 



TST 

LBEO 

PSHS 

LDB 

CMPB 

PULS 

BNE 

LEAS 

RTS 



DEVNUM 
L95AC 



DEVNUM 
#-3 



L8285 
$02, S 



CHECK DEVICE NUMBER 

BRANCH IF SCREEN 

SAVE CHARACTER 

*GET DEVICE NUMBER AND 

♦CHECK FOR DLOAD 

GET CHARACTER BACK 

RETURN IF NOT DLOAD 

*TAKE RETURN OFF STACK S GO BACK TO ROUTINE 

*THAT CALLED CONSOLE OUT 



* CLOSE 


FILES 


RAM HOOK - 


* BUG B 


1.0 


BASIC WHICH 


XVEC8 


LOA 
INCA 


DEVNUM 




BNE 


L8285 




LOA 


FILSTA 




CMPA 


#$02 




BNE 


L8285 




LDA 


CINCTR 




BNE 


L8285 




CLR 


DEVNUM 




LEAS 


$02, S 




JMP 


LA444 


* RUN RAM HOOK 


XVEC18 


LOO 


#$BA42 




STO 


VOLHI 




LDA 


#$02 




STA 


TEMPO 




STA 


OCTAVE 




AS LA 






STA 


NOTELN 




CLR 


DOTVAL 




LOO 


ZERO 




STO 


ANGLE 




LDB 


#128 




STO 


HORDEF 




LDB 


#96 




STO 


VERDEF 




RTS 




* COMMAND INTERPRETATION 


XVEC20 


LEAS 


$02, S 


L82BB 


ANDCC#$AF 




JSR 


LADEB 




LDX 


CHARAD 




STX 


TINPTR 




LDA 


,x+ 



THIS CODE CORRECTS A 
WAS FIXED BY 1.1 BASIC 



LOOP RAM HOOK 



GET DEVICE NUMBER 

CHECK FOR CASSETTE 

RETURN IF NOT CASSETTE 

GET FILE STATUS 

OPEN FOR OUTPUT? 

RETURN IF NOT OPEN FOR OUTPUT 

GET CHARACTER BUFFER COUNTER 

RETURN IF NOT EMPTY 

SET DEVICE NUMBER TO SCREEN 

GET RETURN ADDRESS OFF OF STACK 

WRITE END OF FILE TAPE BLOCK 

MID HIGH VALUE + MID LOW VALUE 
INITIALIZE PLAY VOLUME 

INITIALIZE TEMPO TO 2 

INITIALIZE OCTAVE TO 3 

X2 

INITIALIZE NOTE LENGTH TO 5 

LEAR NOTE TIMER SCALE FACTOR 

ZERO ACCO 

INITIALIZE DRAW ANGLE AND SCALE TO 1 

* INITIALIZE HORIZONTAL DEFAULT 

* COORDINATE TO MID POSITION 
= INITIALIZE VERTICAL DEFAULT 
= COORDINATE TO MID POSITION 



PURGE RETURN ADDRESS FROM STACK 

ENABLE INTERRUPTS 

CHECK FOR KEYBOARD BREAK 

* GET CURRENT BASIC LINE 

* POINTER AND SAVE IT 

GET CURRENT INPUT CHARACTER AND ADVANCE POINTER 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF EXTENDED BASIC 1.1 



ORIGINlSPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



0289 


82C6 


27 


07 




B29B 


82C8 


81 


3A 




0291 


82CA 


27 


25 




0292 


82CC 


7E 


B2 


77 


0293 


82CF 


A6 


81 




0294 


82D1 


97 


00 




0295 


82D3 


26 


03 




0296 


82D5 


7E 


AE 


15 


0297 


82D8 


EC 


80 




0298 


82DA 


DD 


68 




0299 


82DC 


9F 


A6 




0300 


82DE 


96 


AF 




0301 


82E0 


27 


0F 




0302 


82E2 


86 


5B 




0303 


82 E4 


BD 


A2 


82 


0304 


82E7 


96 


68 




0305 


82E9 


BD 


BD 


CC 


0306 


82EC 


86 


5D 




0307 


82EE 


BD 


A2 


82 


0308 


82F1 


9D 


9F 




0309 


82F3 


IF 


A9 




0310 


82F5 


81 


98 




0311 


82F7 


27 


ID 




0312 


82F9 


81 


97 




0313 


82FB 


27 


14 




0314 


82FD 


IF 


9A 




0315 


82FF 


BD 


AD 


C6 


0316 


8302 


20 


B7 




0317 










0318 


8304 


AE 


62 




0319 


8306 


8C 


AC 


9D 


0320 


8309 


26 


05 




0321 


830B 


8E 


82 


Fl 


0322 


830E 


AF 


62 




0323 


8310 


39 






0324 


8311 


BD 


8C 


62 


0325 


8314 


20 


A5 




0326 


8316 


8D 


02 




0327 


8318 


20 


Al 




0328 


831A 


9D 


9F 




0329 


831C 


81 


4D 




0330 


831E 


10 


26 


21 2A 


0331 










0332 


8322 


9D 


9F 




0333 


8324 


BD 


A5 


78 


0334 


8327 


8D 


43 




0335 


8329 


BF 


01 


E7 


0336 


832C 


8D 


3E 




0337 


832E 


AC 


62 




0338 


8330 


10 


25 


31 16 


0339 


8334 


8D 


36 




0340 


8336 


BF 


01 


E5 


0341 


8339 


9D 


A5 




0342 


833B 


26 


D3 




0343 


833D 


86 


02 




0344 


833F 


9E 


8A 




0345 


8341 


BD 


A6 


5F 


0346 


8344 


0F 


78 




0347 


8346 


0C 


7C 




0348 


8348 


BD 


A7 


D8 


0349 


834B 


AE 


64 




0350 


834D 


9F 


7E 




0351 


834F 


86 


FF 




0352 


8351 


97 


7D 




0353 


8353 


EC 


62 




0354 


8355 


93 


7E 




0355 


8357 


24 


05 




0356 


8359 


32 


66 




0357 


835B 


7E 


A4 


91 


0358 


835E 


10 


83 


00 FF 


0359 


8362 


24 


03 




0360 


8364 


5C 






0361 


8365 


D7 


7D 




0362 


8367 


BD 


A7 


F4 


0363 


836A 


20 


El 




0364 


836C 


BD 


B2 


6D 


0365 


836F 


BD 


B7 


3D 


0366 


8372 


EE 


E4 




0367 


8374 


AF 


E4 




0368 


8376 


IF 


35 




0369 










0370 










0371 










0372 


8378 


8E 


83 


AB 


0373 


837B 


BD 


B9 


C2 


0374 


837E 


7E 


BF 


78 


0375 










0376 










0377 










0378 


8381 


BD 


BC 


2F 


0379 


8384 


0F 


0A 




0380 


8386 


8D 


F6 




0381 


8388 


8E 


00 


4A 


0382 


838B 


BD 


BC 


35 


0383 


838E 


8E 


00 


40 


0384 


8391 


BD 


BC 


14 



BRANCH IF END OF LINE 

CHECK FOR COLON 

CONTINUE INTERPRETING IF COLON 

SNYTAX ERROR - COLON ONLY LEGAL LINE SEPARATOR 

* GET 1ST BYTE OF ADDRESS OF NEXT 

* BASIC LINE AND SAVE IT 
BRANCH IF NOT END OF PROGRAM 
RETURN TO DIRECT MODE - PRINT OK 
GET LINE NUMBER OF NEXT LINE 
SAVE LINE NUMBER 

SAVE ADDRESS NEXT BYTE TO INTERPRET 

TEST THE TRACE FLAG 

BRANCH IF TRACE OFF 

<LEFT HAND MARKER FOR TRON LINE NUMBER 

OUTPUT A CHARACTER 

GET MS BYTE OF LINE NUMBER 

CONVERT ACCD TO DECIMAL AND PRINT ON SCREEN 

> RIGHT HAND MARKER FOR TRON LINE NUMBER 

OUTPUT A CHARACTER 

GET A CHARACTER FROM BASIC 

SAVE STATUS IN ACCB 

CSAVE TOKEN 

GO DO A CSAVE 

CLOAD TOKEN 

PROCESS CLOAD 

GET STATUS REG BACK 

LINK BACK TO BASIC S INTERPRETATION LOOP 

GO TO MAIN INTERPRETATION LOOP 

*CHECK TO SEE IF THE ROUTINE CALLING CRUNCH 
*IS COMING FROM THE MAIN LOOP IN BASIC 
*AND BRANCH IF NOT 

=IF IT IS, DO NOT RETURN TO COLOR BASIC 
=BUT TO THE EXBAS PATCH INSTEAD 

CHECK EXBAS CLOAD HANDLER 

GO TO MAIN INTERPRETATION LOOP 

DO A CSAVE 

GO TO MAIN INTERPRETATION LOOP 

GET A CHAR FROM BASIC 

CHECK FOR CSAVEM 

BRANCH IF IT S NOT CSAVEM 

GET A CHAR FROM BASIC 
GET NAME OF FILE FROM BASIC 
GO GET THE START ADDRESS 
PUT IT IN HEADER BUFFER 
GO GET END ADDRESS 
COMPARE TO START ADDRESS 

FC ERROR IF START > END 
GO GET XFER ADDRESS 
PUT IT IN HEADER BUFFER 
GET NEW CHARACTER 
RETURN IF NOT END OF LINE 
FILE TYPE (MACHINE LANGUAGE) 
X = 0000 FILE MODE AND ASCII FLAG 
WRITE HEADER BLOCK 
CLOSE CASSETTE FILES 
BLOCK TYPE = 1 
GO WRITE LEADER 
GET STARTING ADDRESS 
STORE BUFFER START ADOR 
BLOCK SIZE = 2SS 
STORE IN BLOCK SIZE 
GET ENDING ADDRESS 
SUBTRACT START ADDRESS 
BRANCH IF MORE TO BE WRITTEN 
CLEAN UP STACK 
WRITE FINAL BLOCK 
AT LEAST 1 FULL BLK LEFT? 
YES 

NO - PUT WHAT S LEFT IN BLKLEN 
BUFFER SIZE 
WRITE A BLOCK 
GO DO SOME MORE 
SYNTAX CHECK FOR COMMA 
EVAL EXPR - RETURN VALUE IN X 
SAVE RETURN ADDRESS IN U 
PUT THE EXPRESSION ON THE STACK 

RETURN TO CALLING ADDRESS 



* COS 

* THE VALUE OF COS(X) IS DETERMINED BY THE TRIG IDENTITY COS(X)=SIN( ( PI/2)+X) 
COS LDX #L83AB POINT X TO FP CONSTANT (Pl/2) 

JSR LB9C2 ADD FPA0 TO (X) 

L837E JMP LBF78 JUMP TO SIN ROUTINE 

* TAN 

* THE VALUE OF TAN(X) IS DETERMINED BY THE TRIG IDENTITY TAN(X)=SIN(X)/COS(X) 

PACK FPA0 AND MOVE IT TO FPA3 
RESET OUADRANT FLAG 
CALCULATE SIN OF ARGUMENT 
POINT X TO FPA5 
PACK FPA0 AND MOVE IT TO FPA5 
POINT X TO FPA3 
MOVE FPA3 TO FPA0 





BEQ 


L82CF 




CM PA 


#■ :■ 




BEO 


L82F1 




JMP 


LB277 


L82CF 


LDA 


,x++ 




STA 


ENDFLG 




BNE 


L82D8 




JMP 


LAE15 


L82D8 


LDD 


,x+ 




STD 


CURLIN 




STX 


CHARAD 




LDA 


TRCFLG 




BEO 


L82F1 




LDA 


#$5B 




JSR 


LA282 




LDA 


CURLIN 




JSR 


LBDCC 




LDA 


#$5D 




JSR 


LA282 


L82F1 


JSR 


GETNCH 




TFR 


CC,B 




CMPA 


#$98 




BEO 


L8316 




CMPA 


#$97 




BEQ 


L8311 




TFR 


B,CC 




JSR 


LADC6 




BRA 


L82BB 


* CRUNCH 


1 RAM 


HOOK 


XVEC23 


LDX 


$02, S 




CMPX 


#LAC9D 




BNE 


L8310 




LDX 


#L82F1 




STX 


$02, S 


L8310 


RTS 




L8311 


JSR 


L8C62 




BRA 


L82BB 


L8316 


BSR 


L831A 




BRA 


L82BB 


L831A 


JSR 


GETNCH 




CMPA 


#'M' 




LBNE 


LA44C 


* CSAVEf 


1 






JSR 


GETNCH 




JSR 


LA578 




BSR 


L836C 




STX 


CASBUF+13 




BSR 


L836C 




CMPX 


$02, S 




LBCS 


LB44A 




BSR 


L836C 




STX 


CASBUF+11 




JSR 


GETCCH 




BNE 


L8310 




LDA 


#$02 




LDX 


ZERO 




JSR 


LA65F 




CLR 


FILSTA 




INC 


BLKTYP 




JSR 


LA7D8 




LDX 


$04, S 


L834D 


STX 


CBUFAD 




LDA 


#255 




STA 


BLKLEN 




LDD 


$02, S 




SUBD 


CBUFAD 




BCC 


L835E 




LEAS 


$06, S 




JMP 


LA491 


L835E 


CMPD 


#$00FF 




BCC 


L8367 




INCB 






STB 


BLKLEN 


L8367 


JSR 


LA7F4 




BRA 


L834D 


L836C 


JSR 


SYNCOMMA 




JSR 


LB73D 




LOU 


,s 




STX 


,s 




TFR 


U,PC 



JSR 


LBC2F 


CLR 


RELFLG 


BSR 


L837E 


LDX 


#V4A 


JSR 


LBC35 


LDX 


#V40 


JSR 


LBC14 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OE EXTENDED BASIC 1.1 



ORIGINlSPECTRAL ASSOC 
REVISED;03/14/99 WALTER K ZYDHEK 



0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 



8394 0F 54 
8396 96 0A 
8398 8D 0C 
839A 0D 4F 
839C 10 27 36 F2 
83A0 8E 00 4A 
83A3 7E BB 8F 
83A6 34 02 
83A8 7E BF A6 

83AB 81 49 0F DA A2 





CLR 


FP0SGN 




LDA 


RELFLG 




BSR 


L83A6 




TST 


FP0EXP 




LBEQ 


LBA92 




LDX 


#V4A 


L83A3 


JMP 


LBB8F 


L83A6 


PSHS 


A 




JMP 


LBFA6 



FCB $81,$49,$0F,$DA,$A2 



FORCE FPA0 MANTISSA TO BE POSITIVE 
GET THE QUADRANT FLAG - COS NEGATIVE IN QUADS 2,3 
CALCULATE VALUE OF COS(FPA0) 
CHECK EXPONENT OF FPA0 
OV ERROR IF COS(X)=0 
POINT X TO FPA5 

DIVIDE (X) BY FPA0 - SIN(X)/COS(X) 
SAVE SIGN FLAG ON STACK 
EXPAND POLYNOMIAL 

1.57079633 (PI/2) 



ATN 

A 12 TERM TAYLOR SERIES IS USED TO EVALUATE THE 
ARCTAN EXPRESSION. TWO DIFFERENT FORMULI ARE USED 
TO EVALUATE THE EXPRESSION DEPENDING UPON 
WHETHER OR NOT THE ARGUMENT SQUARED IS > OR < 1.0 

IF X**2<1 THEN ATN=X-(X**3)/3+(X**5)/5-(X**7)/7 

IF X**2>=1 THEN ATN=PI/2-(l/X-l/((X**3)*3)+(l/((X**5)*5)- ) 



0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 



83B0 
83B2 
83B4 
83B6 
83B8 
83BA 
83BC 
83BE 
83C0 
83C3 
83C5 
83C8 
83CB 
83CD 
83CF 
8301 
8304 
8307 
8309 
83DA 
83DC 
83DF 



83E0 
83E1 
83E6 
83EB 
83F0 
83F5 
83 FA 
83FF 
8404 
8409 
840E 
8413 
8418 



96 54 
34 02 
2A 02 

80 24 
96 4F 

34 02 

81 81 
25 05 

8E BA C5 

80 DE 

8E 83 E0 
BD BE F0 

35 02 

81 81 
25 06 

8E 83 AB 
BD B9 B9 
35 02 
40 

2A 03 
7E BE E9 
39 



76 B3 
79 IE 
7B 83 
7C 0C 
7C DE 
70 14 
70 B7 
70 63 
7E 92 
7E 4C 
7F AA 
81 00 



83 BD 03 
F4 A6 F5 
FC B0 10 
IF 67 CA 
53 CB CI 
64 70 4C 
EA 51 7A 
30 88 7E 
44 99 3A 
CC 91 C7 
AA AA 13 



8410 03 

841E 7F 5E 56 CB 79 
8423 80 13 9B 0B 64 
8428 80 76 38 93 16 
8420 82 38 AA 3B 20 

8432 80 35 04 F3 34 

8437 81 35 04 F3 34 

843C 80 80 00 00 00 

8441 80 31 72 17 F8 



8446 BD BC 60 

8449 10 2F 2F FD 
8440 8E 84 32 

8450 96 4F 
8452 80 80 
8454 34 02 
8456 86 80 
8458 97 4F 
845A BD B9 C2 
8450 8E 84 37 
8460 BD BB 8F 
8463 8E BA C5 



L83DC 
L83DF 



LDA 

PSHS 

BPL 

BSR 

LDA 

PSHS 

CMPA 

BLO 

LDX 

BSR 

LDX 

JSR 

PULS 

CMPA 

BLO 

LDX 

JSR 

PULS 

TSTA 

BPL 

JMP 

RTS 



FP0SGN 

A 

L83B8 

L83DC 

FP0EXP 

A 

#$81 

L83C5 

#LBAC5 

L83A3 

#L83E0 

LBEF0 

A 

#$81 

L83D7 

#L83AB 

LB9B9 

A 

L83DF 
LBEE9 



* GET THE SIGN OF THE MANTISSA AND 

* SAVE IT ON THE STACK 
BRANCH IF POSITIVE MANTISSA 
CHANGE SIGN OF FPA0 

* GET EXPONENT OF FPA0 AND 

* SAVE IT ON THE STACK 
IS FPAQ < 1.0? 

YES 

POINT X TO FP CONSTANT 1.0 

GET RECIPROCAL OF FPA0 

POINT (X) TO TAYLOR SERIES COEFFICIENTS 

EXPAND POLYNOMIAL 

GET EXPONENT OF ARGUMENT 

WAS ARGUMENT < 1.0? 

YES 

POINT (X) TO FP NUMBER (PI/2) 

SUBTRACT FPA0 FROM (PI/2) 

* GET SIGN OF INITIAL ARGUMENT MANTISSA 

* AND SET FLAGS ACCORDING TO IT 
RETURN IF ARGUMENT WAS POSITIVE 
CHANGE MANTISSA SIGN OF FPA0 



TCHEBYSHEV MODIFIED TAYLOR SERIES COEFFICI 



L83E0 
L83E1 
L83E6 
L83EB 
L83F0 
L83F5 
L83FA 
L83FF 
L8404 
L8409 
L840E 
L8413 
L8418 



FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 



$76,$B3 
$79,$1E 
$7B,$83 
$7C,$0C 
$7C,$DE 
$70, $14 
$7D,$B7 
$70, $63 
$7E,$92 
$7E,$4C 
$7F,$AA 
$81, $00 



$83 


$BD 


$F4 


$A6 


$FC 


$B0 


$1F 


$67 


$53 


$CB 


$64 


$70 


$EA 


$51 


$30 


$88 


$44 


$99 


$CC 


$91 


$AA 


$AA 


$00 


$00 



$03 
$F5 
$10 
$CA 
$C1 
$4C 
$7A 
$7E 
$3A 
$C7 
$13 



ENTS FOR ARCTANGENT 


TWELVE COEFFICIENTS 


-6.84793912E-04 


1/23 


+4.85094216E-03 


1/21 


-0.0161117018 


1/19 


+0.0342096381 


1/17 


-0.0542791328 


1/15 


+0.0724571965 


1/13 


-0.0898023954 


1/11 


+0.110932413 


1/9 


-0.142839808 


1/7 


+0.199999121 


1/5 


-0.333333316 


1/3 


+1.000000000 


1/1 



TCHEBYSHEV MODIFIED TAYLOR SERIES COEFFICIENTS FOR LN(X) 



FOUR COEFFICIENTS 



L841D 


FCB 


$03 








L841E 


FCB 


$7F,$5E 


$56 


$CB 


$79 


L8423 


FCB 


$80, $13 


$9B 


$0B 


$64 


L8428 


FCB 


$80, $76 


$38 


$93 


$16 


L842D 


FCB 


$82, $38 


$AA 


$3B 


$20 



L8432 FCB $80,$35 ,$04,$F3 ,$34 
L8437 FCB $81 ,$35 ,$04,$F3 ,$34 
L843C FCB $80, $80, $00, $00, $00 



0.434255942 (2/7)*( 1/LN(2) ) 

0.576584541 (2/5)*( 1/LN(2) ) 

0.961800759 (2/3)*(l/LN(2)) 

2.88539007 (2/l)*( 1/LN(2) ) 

1/SQR(2) 

SQR(2) 

-.5 



8441 FCB $80,$31,$72,$17,$F8 LN(2) 

LOG - NATURAL LOGARITHM (LN) 

THE NATURAL OR NAPERIAN LOGARITHM IS CALCULATED USING 
MATHEMATICAL IDENTITIES. FPA0 IS OF THE FORM FPA0=A*(2**B) (SCIENTIFIC 
NOTATION). THEREFORE, THE LOG ROUTINE DETERMINES THE VALUE OF 
LN(A*(2**B)). A SERIES OF MATHEMATICAL IDENTITIES WILL EXPAND THIS 
TERM: LN(A*(2**B))=(-l/2+(l/LN(2))*(LN(A*SQR(2)))+B)*LN(2). ALL OF 
THE TERMS OF THE LATTER EXPRESSION ARE CONSTANTS EXCEPT FOR THE 
LN(A*SQR(2)) TERM WHICH IS EVALUATED USING THE TAYLOR SERIES EXPANSION 

CHECK STATUS OF FPA0 

FC ERROR IF NEGATIVE OR ZERO 
POINT (X) TO FP NUMBER (1/SQR(2)) 
*GET EXPONENT OF ARGUMENT 
♦SUBTRACT OFF THE BIAS AND 
*SAVE IT ON THE STACK 
=FORCE EXPONENT OF FPA0 
=T0 BE ZERO 
ADD FPA0 TO (X) 
POINT X TO SQR(2) 
DIVIDE SQR(2) BY FPA0 
POINT X TO FP VALUE OF 1.00 



JSR 


LBC6D 


LBLE 


LB44A 


LDX 


#L8432 


LDA 


FP0EXP 


SUBA 


#$80 


PSHS 


A 


LDA 


#$80 


STA 


FP0EXP 


JSR 


LB9C2 


LDX 


#L8437 


JSR 


LBB8F 


LDX 


#LBAC5 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OE EXTENDED BASIC 1.1 



ORIGINlSPECTRAL ASSOC 
REVISED;03/14/99 WALTER K ZYDHEK 



0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 
0575 
0576 



8466 BD B9 B9 

8469 8E 84 ID 
846C BD BE F0 
846F 8E 84 3C 
8472 BD B9 C2 
8475 35 04 
8477 BD BD 99 
847A 8E 84 41 
847D 7E BA CA 



BD BC 5F 
8E BE C0 
BD BC 14 



JSR LB9B9 



SUBTRACT FPA0 FROM (X) 



NOW FPA0 = (1-S0R(2)*X)/(1+S0R(2)*X) WHERE X IS ARGUMENT 



848E 
8491 
8494 
8497 
8498 
849A 
849C 
849 F 
84A2 
84A4 
84A7 
84A9 
84AA 
84AC 
84AF 
84B1 
84B4 
84B7 
84BA 
84BC 
84BE 



27 67 
40 

26 03 
7E BA 3A 
8E 00 4A 
BD BC 35 
5F 

96 61 
2A 10 
BD BC EE 
8E 00 4A 
96 61 
BD BC A0 
26 03 
43 

06 01 
BO BC 4C 

34 04 

BD 84 46 
8E 00 4A 
BO BA CA 
80 36 

35 02 
46 

10 25 3A 26 
39 



84C4 81 38 AA 3B 29 



84C9 07 

84CA 71 34 58 3E 56 
84CF 74 16 7E B3 IB 
8404 77 2F EE E3 85 
8409 7A 10 84 IC 2A 
84DE 7C 63 59 58 0A 
84E3 7E 75 FO E7 C6 
84E8 80 31 72 18 10 
84E0 81 00 00 00 00 



84F2 8E 84 C4 
84F5 BO BA CA 
84F8 BD BC 2F 
84FB 96 4F 
84F0 81 88 
84FF 25 03 
8501 7E BB 5C 
8504 BD BC EE 
8507 96 01 

8509 8B 81 
850B 27 F4 

8500 4A 
850E 34 02 

8510 8E 00 40 
8513 BD B9 B9 
8516 8E 84 C9 

8519 BO BE FF 
851C 0F 62 
851E 35 02 

8520 BD BB 48 

8523 39 



8524 BO BC 60 
8527 2B 03 





LOX 


#L8410 




JSR 


LBEF0 




LOX 


#L843C 




JSR 


LB9C2 




PULS 


B 




JSR 


LBD99 




LOX 


#L8441 




JMP 


LBACA 


* SQR 






SQR 


JSR 


LBC5F 




LOX 


#LBEC0 




JSR 


LBC14 


* ARITHMETIC 


OPERATOR 


* HERE. 


THE FORMULA US 


* IS A* 


*X=E** 


(X LN A) 


L8489 


BEQ 
TSTA 


EXP 




BNE 


L8491 




JMP 


LBA3A 


L8491 


LOX 


#V4A 




JSR 


LBC35 




CLRB 






LOA 


FPISGN 




BPL 


L84AC 




JSR 


INT 




LOX 


#V4A 




LOA 


FPISGN 




JSR 


LBCA0 




BNE 


L84AC 




COMA 






LOB 


CHARAC 


L84AC 


JSR 


LBC4C 




PSHS 


B 




JSR 


LOG 




LOX 


#V4A 




JSR 


LBACA 




BSR 


EXP 




PULS 


A 




RORA 






LBCS 


LBEE9 




RTS 





POINT X TO TABLE OF COEFFICIENTS 

EXPAND POLYNOMIAL 

POINT X TO FP VALUE OF (-.5) 

ADD FPA0 TO X 

GET EXPONENT OF ARGUMENT BACK (WITHOUT 

ADD ACCB TO FPA0 

POINT X TO LN(2) 

MULTIPLY FPA0 * LN(2) 



MOVE FPA0 TO FPAl 

POINT (X) TO FP NUMBER (.5) 

COPY A PACKED NUMBER FROM (X) TO FPA0 

FOR EXPONENTIATION JUMPS 

ED TO EVALUATE EXPONENTIATION 

= E**(FPA0*LN(FPA1)), E=2. 7182818 

DO A NATURAL EXPONENTIATION IF EXPONENT = 

*CHECK VALUE BEING EXPONENTIATED 

*ANO BRANCH IF IT IS <> 

FPA0=0 IF RAISING ZERO TO A POWER 

* PACK FPA0 AND SAVE 

* IT IN FPA5 (ARGUMENT S EXPONENT) 
ACCB=OEFAULT RESULT SIGN FLAG; 0=POSITIVE 
♦CHECK THE SIGN OF ARGUMENT 
♦BRANCH IF POSITIVE 
CONVERT EXPONENT INTO AN INTEGER 
POINT X TO FPA5 (ORIGINAL EXPONENT) 
GET MANTISSA SIGN OF FPAl (ARGUMENT) 
♦COMPARE FPA0 TO (X) AND 
♦BRANCH IF NOT EQUAL 

TOGGLE FPAl MANTISSA SIGN - FORCE POSITIVE 
GET LS BYTE OF INTEGER VALUE OF EXPONENT (RESULT SIGN FLAG) 
COPY FPAl TO FPA0; ACCA = MANTISSA SIGN 
PUT RESULT SIGN FLAG ON THE STACK 
GET NATURAL LOGARITHM OF FPA0 
POINT (X) TO FPA5 
MULTIPLY FPA0 BY FPA5 
CALCULATE E^^(FPA0) 

♦ GET RESULT SIGN FLAG FROM THE STACK 

♦ AND BRANCH IF NEGATIVE 
CHANGE SIGN OF FPA0 MANTISSA 



♦ CORRECTION FACTOR FOR EXPONENTIAL FUNCTION 
L84C4 FCB $81 ,$38,$AA,$3B ,$29 



1.44269504 ( CF ) 



TCHEBYSHEV MODIFIED TAYLOR SERIES COEFFICIENTS FOR E^^X 



L84C9 


FCB 


L84CA 


FCB 


L84CF 


FCB 


L8404 


FCB 


L8409 


FCB 


L840E 


FCB 


L84E3 


FCB 


L84E8 


FCB 


L84E0 


FCB 



$07 

$71,$34,$58,$3E 

$74,$16,$7E,$B3 

$77,$2F,$EE,$E3 

$7A,$10,$84,$1C 

$7C,$63,$59,$58 

$7E,$75,$FD,$E7 

$80, $31, $72, $18 

$81, $00, $00, $00 



EIGHT COEFFICIENTS 



$56 
$1B 
$85 
$2A 
$0A 
$C6 
$10 



2.14987637E-05: 

1.4352314E-E 

1.34226348E-03: 

9.61401701E-03: 

0.0555051269 

0.240226385 

0.693147186 

1. 



1/(7]^(CF^^7)) 
1/(6!^(CF^^6)) 
1/(5!^(CF^^5)) 
1/(4!^(CF^^4)) 
1/(3!^(CF^^3)) 
1/(2]^(CF^^2)) 
1/(1!^(CF^^1)) 



EXP ( E^^X) 

THE EXPONENTIAL FUNCTION IS EVALUATED BY FIRST MULTIPLYING THE 
ARGUMENT BY A CORRECTION FACTOR (CF). AFTER THIS IS DONE, AN 
ARGUMENT >= 127 WILL YIELD A ZERO RESULT (NO UNDERFLOW) FOR A 
NEGATIVE ARGUMENT OR AN ' OV ' (OVERFLOW) ERROR FOR A POSITIVE 
ARGUMENT. THE POLYNOMIAL COEFFICIENTS ARE MODIFIED TO REFLECT 
THE CF MULTIPLICATION AT THE START OF THE EVALUATION PROCESS. 



EXP 


LOX 


#L84C4 




JSR 


LBACA 




JSR 


LBC2F 




LOA 


FP0EXP 




CMPA 


#$88 




BLO 


L8504 


L8501 


JMP 


LBB5C 


L8504 


JSR 


INT 




LOA 


CHARAC 




ADDA 


#$81 




BEO 


L8501 




DECA 






PSHS 


A 




LOX 


#V40 




JSR 


LB9B9 




LOX 


#L84C9 




JSR 


LBEFF 




CLR 


RESSGN 




PULS 


A 




JSR 


LBB48 



* FIX 






FIX 


JSR 


LBC60 




BMI 


L852C 



POINT X TO THE CORRECTION FACTOR 

MULTIPLY FPA0 BY (X) 

PACK FPA0 AND STORE IT IN FPA3 

♦GET EXPONENT OF FPA0 AND 

♦COMPARE TO THE MAXIMUM VALUE 

BRANCH IF FPA0 < 128 

SET FPA0 = OR OV ERROR 

CONVERT FPA0 TO INTEGER 

GET LS BYTE OF INTEGER 

♦ WAS THE ARGUMENT =127, IF SO 

♦ THEN OV ERROR; THIS WILL ALSO ADD THE $80 BIAS 

♦ REQUIRED WHEN THE NEW EXPONENT IS CALCULATED BELOW 

DECREMENT ONE FROM THE EXPONENT, BECAUSE $81, NOT $80 WAS USED ABOVE 

SAVE EXPONENT OF INTEGER PORTION ON STACK 

POINT (X) TO FPA3 

SUBTRACT FPA0 FROM (X) - GET FRACTIONAL PART OF ARGUMENT 

POINT X TO COEFFICIENTS 

EVALUATE POLYNOMIAL FOR FRACTIONAL PART 

FORCE THE MANTISSA TO BE POSITIVE 

GET INTEGER EXPONENT FROM STACK 

♦ CALCULATE EXPONENT OF NEW FPA0 BY ADDING THE EXPONENTS OF THE 

♦ INTEGER AND FRACTIONAL PARTS 



CHECK STATUS OF FPA0 
BRANCH IF FPA0 = NEGATIVE 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF EXTENDED BASIC 1.1 



ORIGINlSPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



0577 


8529 


7E 


BC 


EE 


L8529 


JMP 


INT 




0578 


852C 


03 


54 




L852C 


COM 


FP0SGN 




0579 


852E 


8D 


F9 






BSR 


L8529 




0580 


8530 


7E 


BE 


E9 




JMP 


LBEE9 




0581 


















0582 










* EDIT 








0583 


8533 


BD 


89 


AE 


EDIT 


JSR 


L89AE 




0584 


8536 


32 


62 






LEAS 


$02, S 




0585 


8538 


86 


01 




L8538 


LDA 


#$01 




0586 


853A 


97 


D8 






STA 


VD8 




0587 


853C 


BD 


AD 


01 




JSR 


LAD01 




0588 


853F 


10 


25 


29 8F 




LBCS 


LAED2 




0589 


8543 


BD 


B7 


C2 




JSR 


LB7C2 




0590 


8546 


IF 


20 






TFR 


Y.D 




0591 


8548 


83 


02 


DE 




SUBD 


#LINBUF+2 




0592 


854B 


D7 


D7 






STB 


VD7 




0593 


854D 


DC 


2B 




L854D 


LDD 


BINVAL 




0594 


854F 


BD 


BD 


CC 




JSR 


LBDCC 




0595 


8552 


BD 


B9 


AC 




JSR 


LB9AC 




0596 


8555 


8E 


02 


DD 




LDX 


#LINBUF+1 




0597 


8558 


D6 


D8 






LOB 


VD8 




0598 


855A 


26 


25 






BNE 


L8581 




0599 


855C 


5F 






L855C 


CLRB 






0600 


855D 


BD 


86 


87 


L855D 


JSR 


L8687 




0601 


8560 


BD 


90 


AA 




JSR 


L90AA 




0602 


8563 


25 


0B 






BLO 


L8570 




0603 


8565 


80 


30 






SUBA 


#■0' 




0604 


8567 


34 


02 






PSHS 


A 




0605 


8569 


86 


0A 






LDA 


#10 




0606 


856B 


3D 








MUL 






0607 


856C 


EB 


E0 






ADDB 


,s+ 




0608 


856E 


20 


ED 






BRA 


L855D 




0609 


8570 


C0 


01 




L8570 


SUBB 


#$01 




0610 


8572 


C9 


01 






ADCB 


#$01 




0611 


8574 


81 


41 






CMPA 


#'A' 




0612 


8576 


26 


05 






BNE 


L857D 




0613 


8578 


BD 


B9 


58 




JSR 


LB958 




0614 


857B 


20 


BB 






BRA 


L8538 




0615 


857D 


81 


4C 




L857D 


CMPA 


#'L' 




0616 


857F 


26 


0B 






BNE 


L858C 




0617 


8581 


8D 


31 




L8581 


BSR 


L85B4 




0618 


8583 


0F 


D8 






CLR 


VD8 




0619 


8585 


BD 


B9 


58 




JSR 


LB958 




0620 


8588 


20 


C3 






BRA 


L854D 




0621 


858A 


32 


62 




L858A 


LEAS 


$02, S 




0622 


858C 


81 


0D 




L858C 


CMPA 


#CR 




0623 


858E 


26 


0D 






BNE 


L859D 




0624 


8590 


8D 


22 






BSR 


L85B4 




0625 


8592 


BD 


B9 


58 


L8592 


JSR 


LB958 




0626 


8595 


8E 


02 


DD 




LDX 


#LINBUF+1 




0627 


8598 


9F 


A6 






STX 


CHARAD 




0628 


859A 


7E 


AC 


A8 




JMP 


LACA8 




0629 


859D 


81 


45 




L859D 


CMPA 


#'E' 




0630 


859F 


27 


Fl 






BEO 


L8592 




0631 


85A1 


81 


51 






CMPA 


#■0' 




0632 


85A3 


26 


06 






BNE 


L85AB 




0633 


85A5 


BD 


B9 


58 




JSR 


LB958 




0634 


85A8 


7E 


AC 


73 




JMP 


LAC73 




0635 


85AB 


8D 


02 




L85AB 


BSR 


L85AF 




0636 


85AD 


20 


AD 






BRA 


L855C 




0637 


85AF 


81 


20 




L85AF 


CMPA 


#SPACE 




0638 


85B1 


26 


10 






BNE 


L85C3 




0639 


85B3 


8C 






L85B3 


FCB 


SKP2 




0640 










* DISPLAY THE 


NEXT ACCB BYTES OF THE 


LINE 


0641 










* 








0642 


85B4 


C6 


F9 




L85B4 


LOB 


#LBUFMX-1 




0643 


85B6 


A6 


84 




L85B6 


LDA 


,x 




0644 


85B8 


27 


08 






BEO 


L85C2 




0645 


85BA 


BD 


A2 


82 




JSR 


LA282 




0646 


85BD 


30 


01 






LEAX 


$01, X 




0647 


85BF 


5A 








DECB 






0648 


85C0 


26 


F4 






BNE 


L85B6 




0649 


85C2 


39 






L85C2 


RTS 






0650 


85C3 


81 


44 




L85C3 


CMPA 


#'D' 




0651 


85C5 


26 


48 






BNE 


L860F 




0652 


85C7 


6D 


84 




L85C7 


TST 


,x 




0653 


85C9 


27 


F7 






BEO 


L85C2 




0654 


85CB 


8D 


04 






BSR 


L85D1 




0655 


85CD 


5A 








DECB 






0656 


85CE 


26 


F7 






BNE 


L85C7 




0657 


85D0 


39 








RTS 






0658 










* REMOVE ONE 1 


:haracter from buffer 




0659 


85D1 


0A 


D7 




L85D1 


DEC 


VD7 




0660 


85D3 


31 


IF 






LEAY 


$-01, X 




0661 


85D5 


31 


21 




L85D5 


LEAY 


$01, Y 




0662 


85D7 


A6 


21 






LDA 


$01, Y 




0663 


85D9 


A7 


A4 






STA 


,Y 




0664 


85DB 


26 


F8 






BNE 


L85D5 




0665 


85DD 


39 








RTS 






0666 


85DE 


81 


49 




L85DE 


CMPA 


#'r 




0667 


85E0 


27 


13 






BEO 


L85F5 




0668 


85E2 


81 


58 






CMPA 


#'X' 




0669 


85 E4 


27 


0D 






BEO 


L85F3 




0670 


85E6 


81 


48 






CMPA 


#'H' 




0671 


85 E8 


26 


5C 






BNE 


L8646 




0672 


85 EA 


6F 


84 






CLR 


,x 





CONVERT FPA0 TO INTEGER 
TOGGLE SIGN OF FPA0 MANTISSA 
CONVERT FPA0 TO INTEGER 
TOGGLE SIGN OF FPA0 



GET LINE NUMBER FROM BASIC 

PURGE RETURN ADDRESS OFF OF THE STACK 

LIST FLAG 
SET FLAG TO LIST LINE 
GO FIND THE LINE NUMBER IN PROGRAM 
ERROR #7 UNDEFINED LINE #' 
GO UNCRUNCH LINE INTO BUFFER AT LINBUF+1 
PUT ABSOLUTE ADDRESS OF END OF LINE TO ACCD 
SUBTRACT OUT THE START OF LINE 
SAVE LENGTH OF LINE 
GET THE HEX VALUE OF LINE NUMBER 
LIST THE LINE NUMBER ON THE SCREEN 
PRINT A SPACE 
POINT X TO BUFFER 

* CHECK TO SEE IF LINE IS TO BE 

* LISTED TO SCREEN - BRANCH IF IT IS 
RESET DIGIT ACCUMULATOR - DEFAULT VALUE 
GET KEY STROKE 

SET CARRY IF NOT NUMERIC 

BRANCH IF NOT NUMERIC 

MASK OFF ASCII 

SAVE IT ON STACK 

NUMBER BEING CONVERTED IS BASE 10 

MULTIPLY ACCUMULATED VALUE BY BASE (10) 

ADD DIGIT TO ACCUMULATED VALUE 

CHECK FOR ANOTHER DIGIT 

* REPEAT PARAMETER IN ACCB; IF IT 
*IS 0, THEN MAKE IT 1 

ABORT? 

NO 

PRINT CARRIAGE RETURN TO SCREEN 

RESTART EDIT PROCESS - CANCEL ALL CHANGES 

LIST? 

NO 

LIST THE LINE 

RESET THE LIST FLAG TO NO LIST 

PRINT CARRIAGE RETURN 

GO INTERPRET ANOTHER EDIT COMMAND 

PURGE RETURN ADDRESS OFF OF THE STACK 

ENTER KEY? 

NO 

ECHO THE LINE TO THE SCREEN 

PRINT CARRIAGE RETURN 

* RESET BASIC S INPUT POINTER 

* TO THE LINE INPUT BUFFER 
GO PUT LINE BACK IN PROGRAM 
EXIT? 

YES - SAME AS ENTER EXCEPT NO ECHO 
QUIT? 
NO 

PRINT CARRIAGE RETURN TO SCREEN 
GO TO COMMAND LEVEL - MAKE NO CHANGES 
INTERPRET THE REMAINING COMMANDS AS SUBROUTINES 
GO INTERPRET ANOTHER EDIT COMMAND 
SPACE BAR? 
NO 

SKIP TWO BYTES 
IN THE BUFFER TO THE SCREEN 

250 BYTES MAX IN BUFFER 
GET A CHARACTER FROM BUFFER 
EXIT IF IT S A 
SEND CHAR TO CONSOLE OUT 
MOVE POINTER UP ONE 
DECREMENT CHARACTER COUNTER 
LOOP IF NOT DONE 

DELETE? 
NO 

* CHECK FOR END OF LINE 

* AND BRANCH IF SO 
REMOVE A CHARACTER 
DECREMENT REPEAT PARAMETER 
BRANCH IF NOT DONE 



DECREMENT LENGTH OF BUFFER 

POINT Y TO ONE BEFORE CURRENT BUFFER POINTER 

INCREMENT TEMPORARY BUFFER POINTER 

GET NEXT CHARACTER 

PUT IT IN CURRENT POSITION 

BRANCH IF NOT END OF LINE 

INSERT? 

YES 

EXTEND? 

YES 

HACK? 

NO 

TURN CURRENT 



lUFFER POINTER INTO END OF LINE FLAG 
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0673 


85EC 


IF 


10 


0674 


85EE 


83 


02 DE 


0675 


85F1 


D7 


D7 


0676 


85F3 


8D 


BF 


0677 


85F5 


BD 


86 87 


0678 


85 F8 


81 


0D 


0679 


85 FA 


27 


8E 


0680 


85FC 


81 


IB 


0681 


85FE 


27 


25 


0682 


8600 


81 


08 


0683 


8602 


26 


22 


0684 


8604 


8C 


02 DD 


0685 


8607 


27 


EC 


0686 


8609 


8D 


45 


0687 


860B 


8D 


C4 


0688 


860D 


20 


E6 


0689 


860F 


81 


43 


0690 


8611 


26 


CB 


0691 


8613 


6D 


84 


0692 


8615 


27 


0E 


0693 


8617 


BD 


86 87 


0694 


861A 


25 


02 


0695 


861C 


20 


F5 


0696 


861E 


A7 


80 


0697 


8620 


8D 


37 


0698 


8622 


5A 




0699 


8623 


26 


EE 


0700 


8625 


39 




0701 


8626 


D6 


D7 


0702 


8628 


CI 


F9 


0703 


862A 


26 


02 


0704 


862C 


20 


C7 


0705 


862E 


34 


10 


0706 


8630 


6D 


80 


0707 


8632 


26 


FC 


0708 


8634 


E6 


82 


0709 


8636 


E7 


01 


0710 


8638 


AC 


E4 


0711 


863A 


26 


F8 


0712 


863C 


32 


62 


0713 


863E 


A7 


80 


0714 


8640 


8D 


17 


0715 


8642 


0C 


D7 


0716 


8644 


20 


AF 


0717 


8646 


81 


08 


0718 


8648 


26 


12 


0719 


864A 


8D 


04 


0720 


864C 


5A 




0721 


864D 


26 


FB 


0722 


864F 


39 




0723 


8650 


8C 


02 DD 


0724 


8653 


27 


D0 


0725 


8655 


30 


IF 


0726 


8657 


86 


08 


0727 


8659 


7E 


A2 82 


0728 


865C 


81 


4B 


0729 


865E 


27 


05 


0730 


8660 


80 


53 


0731 


8662 


27 


01 


0732 


8664 


39 




0733 


8665 


34 


02 


0734 


8667 


8D 


IE 


0735 


8669 


34 


02 


0736 


866B 


A6 


84 


0737 


866D 


27 


16 


0738 


866F 


6D 


61 


0739 


8671 


26 


06 


0740 


8673 


8D 


E4 


0741 


8675 


30 


01 


0742 


8677 


20 


03 


0743 


8679 


BD 


85 Dl 


0744 


867C 


A6 


84 


0745 


867E 


Al 


E4 


0746 


8680 


26 


E9 


0747 


8682 


5A 




0748 


8683 


26 


E6 


0749 


8685 


35 


A0 


0750 








0751 








0752 


8687 


BD 


Al 71 


0753 


868A 


81 


7F 


0754 


868C 


24 


F9 


0755 


868E 


81 


5F 


0756 


8690 


26 


02 


0757 


8692 


86 


IB 


0758 


8694 


81 


0D 


0759 


8696 


27 


0E 


0760 


8698 


81 


IB 


0761 


869A 


27 


0A 


0762 


869C 


81 


08 


0763 


869E 


27 


06 


0764 


86A0 


81 


20 


0765 


86A2 


25 


E3 


0766 


86A4 


lA 


01 


0767 


86A6 


39 




0768 











TFR 


X.D 




SUBD 


#LINBUF+2 




STB 


VD7 


L85F3 


BSR 


L85B4 


L85F5 


JSR 


L8687 




CMPA 


#CR 




BED 


L858A 




CMPA 


#ESC 




BED 


L8625 




CMPA 


#BS 




BNE 


L8626 




CMPX 


#LINBUF+1 




BEQ 


L85F5 




BSR 


L8650 




BSR 


L85D1 




BRA 


L85F5 


L860F 


CMPA 


#'C' 




BNE 


L85DE 


L8613 


TST 


,x 




BEQ 


L8625 




JSR 


L8687 




BLO 


L861E 




BRA 


L8613 


L861E 


STA 


,x+ 




BSR 


L8659 




DECB 






BNE 


L8613 


L8625 


RTS 




L8626 


LDB 


VD7 




CMPB 


#LBUFMX-1 




BNE 


L862E 




BRA 


L85F5 


L862E 


PSHS 


X 


L8630 


TST 


,x+ 




BNE 


L8630 


L8634 


LDB 


,-x 




STB 


$01, X 




CMPX 


,s 




BNE 


L8634 




LEAS 


$02, S 




STA 


,x+ 




BSR 


L8659 




INC 


«D7 




BRA 


L85F5 


L8646 


CMPA 


#BS 




BNE 


L865C 


L864A 


BSR 
DECB 


L8650 




BNE 


L864A 




RTS 




L8650 


CMPX 


#LINBUF+1 




BEQ 


L8625 




LEAX 


$-01, X 




LDA 


#BS 


L8659 


JMP 


LA282 


L865C 


CMPA 


#'K' 




BEQ 


L8665 




SUBA 


#'S' 




BEQ 


L8665 




RTS 




L8665 


PSHS 


A 




BSR 


L8687 




PSHS 


A 


L866B 


LDA 


,x 




BEQ 


L8685 




TST 


$01, S 




BNE 


L8679 




BSR 


L8659 




LEAX 


$01, X 




BRA 


L867C 


L8679 


JSR 


L85D1 


L867C 


LDA 


,x 




CMPA 


,s 




BNE 


L866B 




DECB 






BNE 


L866B 


L8685 


PULS 


Y,PC 


* GET A 


KEYSTRKE 


L8687 


JSR 


LA171 




CMPA 


#$7F 




BCC 


L8687 




CMPA 


#$5F 




BNE 


L8694 




LDA 


#ESC 


L8694 


CMPA 


#CR 




BEQ 


L86A6 




CMPA 


#ESC 




BEQ 


L86A6 




CMPA 


#BS 




BEQ 


L86A6 




CMPA 


#SPACE 




BLQ 


L8687 




QRCC 


#$01 



PUT CURRENT BUFFER PQINTER IN ACCD 

SUBTRACT INITIAL POINTER POSITIQN 

SAVE NEW BUFFER LENGTH 

DISPLAY THE LINE QN THE SCREEN 

GET A KEYSTROKE 

ENTER KEY? 

YES - INTERPRET ANOTHER COMMAND - PRINT LINE 

ESCAPE? 

YES - RETURN TO COMMAND LEVEL - DON T PRINT LINE 

BACK SPACE? 

NO 

COMPARE POINTER TO START OF BUFFER 

DO NOT ALLOW BS IF AT START 

MOVE PQINTER BACK ONE, BS TO SCREEN 

REMOVE ONE CHARACTER FROM BUFFER 

GET INSERT SUB COMMAND 

CHANGE? 

NO 

CHECK CURRENT BUFFER CHARACTER 

BRANCH IF END OF LINE 

GET A KEYSTROKE 

BRANCH IF LEGITIMATE KEY 

TRY AGAIN IF ILLEGAL KEY 

INSERT NEW CHARACTER INTO BUFFER 

SEND NEW CHARACTER TO SCREEN 

DECREMENT REPEAT PARAMETER 

BRANCH IF NOT DONE 

GET LENGTH OF LINE 

COMPARE TO MAXIMUM LENGTH 

BRANCH IF NOT AT MAXIMUM 

IGNORE INPUT IF LINE AT MAXIMUM LENGTH 

SAVE CURRENT BUFFER POINTER 

* SCAN THE LINE UNTIL END OF 

* LINE (0) IS FOUND 

DECR TEMP LINE POINTER AND GET A CHARACTER 

PUT CHARACTER BACK DOWN ONE SPOT 

HAVE WE REACHED STARTING POINT? 

NO - KEEP GOING 

PURGE BUFFER POINTER FROM STACK 

INSERT NEW CHARACTER INTO THE LINE 

SEND A CHARACTER TO CONSOLE OUT 

ADD ONE TO BUFFER LENGTH 

GET INSERT SUB COMMAND 

BACKSPACE? 

NO 

MOVE POINTER BACK 1, SEND BS TO SCREEN 

DECREMENT REPEAT PARAMETER 

LOOP UNTIL DONE 

COMPARE POINTER TO START OF BUFFER 

DO NOT ALLOW BS IF AT START 

MOVE POINTER BACK ONE 

BACK SPACE 

SEND TO CONSOLE OUT 

KILL? 

YES 

SEARCH? 

YES 

SAVE KILL/SEARCH FLAG ON STACK 

* GET A KEYSTROKE (TARGET CHARACTER) 

* AND SAVE IT ON STACK 

= GET CURRENT BUFFER CHARACTER 

= AND RETURN IF END OF LINE 

CHECK KILL/SEARCH FLAG 

BRANCH IF KILL 

SEND A CHARACTER TO CONSOLE OUT 

INCREMENT BUFFER POINTER 

CHECK NEXT INPUT CHARACTER 

REMOVE ONE CHARACTER FROM BUFFER 

GET CURRENT INPUT CHARACTER 

COMPARE TO TARGET CHARACTER 

BRANCH IF NO MATCH 

DECREMENT REPEAT PARAMETER 

BRANCH IF NOT DONE 

THE Y PULL WILL CLEAN UP THE STACK FOR THE 2 PSHS A 



CALL CONSOLE IN : DEV NBR=SCREEN 

GRAPHIC CHARACTER? 

YES - GET ANOTHER CHAR 

SHIFT UP ARROW (QUIT INSERT) 

NO 

REPLACE W/ESCAPE CODE 

ENTER KEY 

YES 

ESCAPE? 

YES 

BACKSPACE? 

YES 

SPACE 

GET ANOTHER CHAR IF CONTROL CHAR 

SET CARRY 
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0769 










* TRON 






0770 


86A7 


86 






IRON 


FCB 


SKPILD 


0771 
















0772 










* TROFF 






0773 


86A8 


4F 






TROFF 


CLRA 




0774 


86A9 


97 


AF 






STA 


TRCFLG 


0775 


86AB 


39 








RTS 




0776 
















0777 










* POS 






0778 


86AC 


96 


6F 




POS 


LDA 


DEVNUM 


0779 


86AE 


34 


02 






PSHS 


A 


0780 


86B0 


BD 


A5 


AE 




JSR 


LA5AE 


0781 


86B3 


BD 


A4 


06 




JSR 


LA406 


0782 


86B6 


BD 


A3 


5F 




JSR 


LA35F 


0783 


86B9 


D6 


6C 






LDB 


DEVPOS 


0784 


86BB 


7E 


A5 


E4 




JMP 


LA5E4 


0785 
















0786 










* VARPTR 






0787 


86BE 


BD 


B2 


6A 


VARPTR 


JSR 


LB26A 


0788 


86C1 


DC 


IF 






LDD 


ARYEND 


0789 


86C3 


34 


06 






PSHS 


B,A 


0790 


86C5 


BD 


B3 


57 




JSR 


LB357 


0791 


86C8 


BD 


B2 


67 




JSR 


LB267 


0792 


86CB 


35 


06 






PULS 


A.B 


0793 


86CD 


IE 


10 






EXG 


X.D 


0794 


86CF 


9C 


IF 






CMPX 


ARYEND 


0795 


86D1 


26 


51 






BNE 


L8724 


0796 


86D3 


7E 


B4 


F4 




JMP 


GIVABF 


0797 
















0798 










* MID$(0LDSTRING,P0SIT1 


0799 


86D6 


9D 


9F 




L86D6 


JSR 


GETNCH 


0800 


86D8 


BD 


B2 


6A 




JSR 


LB26A 


0801 


86DB 


BD 


B3 


57 




JSR 


LB357 


0802 


86DE 


34 


10 






PSHS 


X 


0803 


86E0 


EC 


02 






LDD 


$02, X 


0804 


86E2 


10 


93 


21 




CMPD 


FRETOP 


0805 


86E5 


23 


04 






BLS 


L86EB 


0806 


86E7 


93 


27 






SUBD 


MEMSIZ 


0807 


86E9 


23 


12 






BLS 


L86FD 


0808 


86EB 


E6 


84 




L86EB 


LDB 


,x 


0809 


86ED 


BD 


B5 


6D 




JSR 


LB56D 


0810 


86F0 


34 


10 






PSHS 


X 


0811 


86F2 


AE 


62 






LDX 


$02, S 


0812 


86 F4 


BD 


B6 


43 




JSR 


LB643 


0813 


86F7 


35 


50 






PULS 


X,U 


0814 


86F9 


AF 


42 






STX 


$02, U 


0815 


86FB 


34 


40 






PSHS 


U 


0816 


86FD 


BD 


B7 


38 


L86FD 


JSR 


LB738 


0817 


8700 


34 


04 






PSHS 


B 


0818 


8702 


5D 








TSTB 




0819 


8703 


27 


IF 






BED 


L8724 


0820 


8705 


C6 


FF 






LDB 


#$FF 


0821 


8707 


81 


29 






CM PA 


#■)■ 


0822 


8709 


27 


03 






BED 


L870E 


0823 


870B 


BD 


B7 


38 




JSR 


LB738 


0824 


870E 


34 


04 




L870E 


PSHS 


B 


0825 


8710 


BD 


B2 


67 




JSR 


LB267 


0826 


8713 


C6 


B3 






LDB 


#$B3 


0827 


8715 


BD 


B2 


6F 




JSR 


LB26F 


0828 


8718 


8D 


2E 






BSR 


L8748 


0829 


871A 


IF 


13 






TFR 


X,U 


0830 


871C 


AE 


62 






LDX 


$02, S 


0831 


871E 


A6 


84 






LDA 


,x 


0832 


8720 


A0 


61 






SUBA 


$01, S 


0833 


8722 


24 


03 






BCC 


L8727 


0834 


8724 


7E 


B4 


4A 


L8724 


JMP 


LB44A 


0835 


8727 


4C 






L8727 


INCA 




0836 










* 






0837 


8728 


Al 


E4 






CMPA 


,s 


0838 


872A 


24 


02 






BCC 


L872E 


0839 


872C 


A7 


E4 






STA 


,s 


0840 


872E 


A6 


61 




L872E 


LDA 


$01, S 


0841 


8730 


IE 


89 






EXG 


A,B 


0842 


8732 


AE 


02 






LDX 


$02, X 


0843 


8734 


5A 








DECB 




0844 










* 






0845 


8735 


3A 








ABX 




0846 


8736 


4D 








TSTA 




0847 


8737 


27 


0D 






BEQ 


L8746 


0848 


8739 


Al 


E4 






CMPA 


,s 


0849 


873B 


23 


02 






BLS 


L873F 


0850 


873D 


A6 


E4 






LDA 


,s 


0851 


873F 


IF 


89 




L873F 


TFR 


A,B 


0852 


8741 


IE 


31 






EXG 


U,X 


0853 


8743 


BD 


A5 


9A 




JSR 


LA59A 


0854 


8746 


35 


96 




L8746 


PULS 


A,B,X,PC 


0855 


8748 


BD 


Bl 


56 


L8748 


JSR 


LB156 


0856 


874B 


7E 


B6 


54 




JMP 


LB654 


0857 










* 






0858 
















0859 










* STRING 






0860 


874E 


BD 


B2 


6A 


STRING 


JSR 


LB26A 


0861 


8751 


BD 


B7 


0B 




JSR 


EVALEXPB 


0862 


8754 


34 


04 






PSHS 


B 


0863 


8756 


BD 


B2 


6D 




JSR 


SYNCOMMA 


0864 


8759 


BD 


Bl 


56 




JSR 


LB156 



SKIP ONE BYTE AND LDA #$4F 



TROFF FLAG 

TRON/TROFF FLAG: 0=TROFF, <> 0=TRON 



GET DEVICE NUMBER 

SAVE IT ON STACK 

GET DEVICE NUMBER 

FILE STATUS CHECK 

SET UP TAB FIELD WIDTH 

GET PRINT POSITION 

CONVERT PRINT POSITION TO FLOATING POINT 



SYNTAX CHECK FOR ( 

GET ADDR OF END OF ARRAYS 

SAVE IT ON STACK 

GET VARIABLE DESCRIPTOR 

SYNTAX CHECK FOR ) 

GET END OF ARRAYS ADDR BACK 

SWAP END OF ARRAYS AND VARIABLE DESCRIPTOR 

COMPARE TO NEW END OF ARRAYS 

FC ERROR IF VARIABLE WAS NOT DEFINED PRIOR TO CALLING VARPTR 
CONVERT VARIABLE DESCRIPTOR INTO A FP NUMBER 



GET INPUT CHAR FROM BASIC 
SYNTAX CHECK FOR ( 

* GET VARIABLE DESCRIPTOR ADDRESS AND 

* SAVE IT ON THE STACK 

POINT ACCD TO START OF OLDSTRING 

COMPARE TO START OF CLEARED SPACE 

BRANCH IF <= 

SUBTRACT OUT TOP OF CLEARED SPACE 

BRANCH IF STRING IN STRING SPACE 

GET LENGTH OF OLDSTRING 

RESERVE ACCB BYTES IN STRING SPACE 

SAVE RESERVED SPACE STRING ADDRESS ON STACK 

POINT X TO OLDSTRING DESCRIPTOR 

MOVE OLDSTRING INTO STRING SPACE 

* GET OLDSTRING DESCRIPTOR ADDRESS AND RESERVED STRING 

* ADDRESS AND SAVE RESERVED ADDRESS AS OLDSTRING ADDRESS 
SAVE OLDSTRING DESCRIPTOR ADDRESS 

SYNTAX CHECK FOR COMMA AND EVALUATE LENGTH EXPRESSION 
SAVE POSITION PARAMETER ON STACK 

* CHECK POSITION PARAMETER AND BRANCH 

* IF START OF STRING 

DEFAULT REPLACEMENT LENGTH = $FF 

* CHECK FOR END OF MID$ STATEMENT AND 

* BRANCH IF AT END OF STATEMENT 

SYNTAX CHECK FOR COMMA AND EVALUATE LENGTH EXPRESSION 
SAVE LENGTH PARAMETER ON STACK 
SYNTAX CHECK FOR ) 
TOKEN FOR = 
SYNTAX CHECK FOR = 
EVALUATE REPLACEMENT STRING 
SAVE REPLACEMENT STRING ADDRESS IN U 
POINT X TO OLDSTRING DESCRIPTOR ADDRESS 
GET LENGTH OF OLDSTRING 
SUBTRACT POSITION PARAMETER 
INSERT REPLACEMENT STRING INTO OLDSTRING 
FC ERROR IF POSITION > LENGTH OF OLDSTRING 

* NOW ACCA = NUMBER OF CHARACTERS TO THE RIGHT 

* (INCLUSIVE) OF THE POSITION PARAMETER 
COMPARE TO LENGTH PARAMETER 

BRANCH IF NEW STRING WILL FIT IN OLDSTRING 

IF NOT, USE AS MUCH OF LENGTH PARAMETER AS WILL FIT 

GET POSITION PARAMETER 

ACCA=LENGTH OF REPL STRING, ACCB=POSITION PARAMETER 

POINT X TO OLDSTRING ADDRESS 

* BASIC S POSITION PARAMETER STARTS AT 1; THIS ROUTINE 

* WANTS IT TO START AT ZERO 

POINT X TO POSITION IN OLDSTRING WHERE THE REPLACEMENT WILL GO 

* IF THE LENGTH OF THE REPLACEMENT STRING IS ZERO 

* THEN RETURN 

= IF THE LENGTH OF REPLACEMENT STRING IS <= THE 

ADJUSTED LENGTH PARAMETER, THEN BRANCH 
OTHERWISE USE AS MUCH ROOM AS IS AVAILABLE 
SAVE NUMBER OF BYTES TO MOVE IN ACCB 
SWAP SOURCE AND DESTINATION POINTERS 
MOVE (B) BYTES FROM (X) TO (U) 
CLEAN UP THE STACK AND RETURN 
EVALUATE EXPRESSION 

* TM ERROR IF NUMERIC; RETURN WITH X POINTING 
*T0 STRING, ACCB = LENGTH 



SYNTAX CHECK FOR ( 
EVALUATE EXPRESSION; ERROR 
SAVE LENGTH OF STRING 
SYNTAX CHECK FOR COMMA 
EVALUATE EXPRESSION 
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0865 


875C 


BD 


B2 


67 


B866 


875F 


96 


06 




B867 


8761 


26 


05 




0868 


8763 


BD 


B7 


0E 


0869 


8766 


20 


03 




0870 


8768 


BD 


B6 


A4 


0871 


876B 


34 


04 




0872 


876D 


E6 


61 




0873 


876F 


BD 


B5 


0F 


0874 


8772 


35 


06 




0875 


8774 


27 


05 




0876 


8776 


A7 


80 




0877 


8778 


5A 






0878 


8779 


26 


FB 




0879 


877B 


7E 


B6 


9B 


0880 










0881 










088Z 


877E 


BD 


B2 


6A 


0883 


8781 


BD 


Bl 


56 


0884 


8784 


C6 


01 




0885 


8786 


34 


04 




0886 


8788 


96 


06 




0887 


878A 


26 


10 




0888 


878C 


BD 


B7 


0E 


0889 


878F 


E7 


E4 




0890 


8791 


27 


91 




0891 


8793 


BD 


B2 


6D 


0892 


8796 


BD 


Bl 


56 


0893 


8799 


BD 


Bl 


46 


0894 


879C 


9E 


52 




0895 


879E 


34 


10 




0896 


87A0 


BD 


B2 


6D 


0897 


> 87A3 


BD 


87 


48 


0898 


87A6 


34 


14 




0899 


87A8 


BD 


B2 


67 


0900 


87AB 


AE 


63 




0901 


87AD 


BD 


B6 


59 


0902 


87B0 


34 


04 




0903 










0904 










0905 










0906 










0907 


87B2 


El 


66 




0908 


87B4 


25 


23 




0909 


87B6 


A6 


61 




0910 


87B8 


27 


IC 




0911 


87BA 


E6 


66 




0912 


87BC 


5A 






0913 


87BD 


3A 






0914 


87BE 


31 


84 




0915 


87C0 


EE 


62 




0916 


87C2 


E6 


61 




0917 


87C4 


A6 


E4 




0918 


87C6 


A0 


66 




0919 


87C8 


4C 






0920 


87C9 


Al 


61 




0921 


87CB 


25 


0C 




0922 


87CD 


A6 


80 




0923 


87CF 


Al 


C0 




0924 


87D1 


26 


0C 




0925 


87D3 


5A 






0926 


87D4 


26 


F7 




0927 


87D6 


E6 


66 




0928 


87D8 


21 






0929 


87D9 


5F 






0930 


87DA 


32 


67 




0931 


87DC 


7E 


B4 


F3 


0932 


87DF 


6C 


66 




0933 


87E1 


30 


21 




0934 


87E3 


20 


D9 




0935 










0936 










0937 


87E5 


81 


26 




0938 


87E7 


26 


5C 




0939 


87E9 


32 


62 




0940 










0941 


87EB 


0F 


52 




0942 


87ED 


0F 


53 




0943 


87EF 


8E 


00 


52 


0944 


87F2 


9D 


9F 




0945 


87 F4 


81 


4F 




0946 


87F6 


27 


12 




0947 


87 F8 


81 


48 




0948 


87 FA 


27 


23 




0949 


87FC 


9D 


A5 




0950 


87FE 


20 


0C 




0951 


8800 


81 


38 




0952 


8802 


10 


22 


2A 71 


0953 


8806 


C6 


03 




0954 


8808 


8D 


2A 




0955 










0956 


880A 


9D 


9F 




0957 


880C 


25 


F2 




0958 


880E 


0F 


50 




0959 


8810 


0F 


51 




0960 


8812 


0F 


06 







JSR 


LB267 




LDA 


VALTYP 




BNE 


L8768 




JSR 


LB70E 




BRA 


L876B 


L8768 


JSR 


LB6A4 


L876B 


PSHS 


B 




LDB 


$01, S 




JSR 


LB50F 




PULS 


A,B 




BEQ 


L877B 


L8776 


STA 
DECB 


,x+ 




BNE 


L8776 


L877B 


JMP 


LB69B 


* INSTR 






INSTR 


JSR 


LB26A 




JSR 


LB156 




LDB 


#$01 




PSHS 


B 




LDA 


VALTYP 




BNE 


L879C 




JSR 


LB70E 




STB 


,s 




BEQ 


L8724 




JSR 


SYNCOMMA 




JSR 


LB156 




JSR 


LB146 


L879C 


LDX 


FPA0+2 




PSHS 


X 




JSR 


SYNCOMMA 




JSR 


L8748 




PSHS 


X.B 




JSR 


LB267 




LDX 


$03, S 




JSR 


LB659 




PSHS 


B 



SYNTAX CHECK FOR ) 

GET VARIABLE TYPE 

BRANCH IF STRING 

CONVERT FPA0 INTO AN INTEGER IN ACCB 

SAVE THE STRING IN STRING SPACE 

GET FIRST BYTE OF STRING 

SAVE FIRST BYTE OF EXPRESSION 

GET LENGTH OF STRING 

RESERVE ACCB BYTES IN STRING SPACE 

GET LENGTH OF STRING AND CHARACTER 

BRANCH IF NULL STRING 

SAVE A CHARACTER IN STRING SPACE 

DECREMENT LENGTH 

BRANCH IF NOT DONE 

PUT STRING DESCRIPTOR ONTO STRING STACK 



SYNTAX CHECK FOR ( 
EVALUATE EXPRESSION 
DEFAULT POSITION = 1 (SEARCH START) 
SAVE START 
GET VARIABLE TYPE 
BRANCH IF STRING 
CONVERT FPA0 TO INTEGER IN ACCB 
SAVE START SEARCH VALUE 
BRANCH IF START SEARCH AT ZERO 
SYNTAX CHECK FOR COMMA 
EVALUATE EXPRESSION - SEARCH STRING 
TM ERROR IF NUMERIC 
SEARCH STRING DESCRIPTOR ADDRESS 
SAVE ON THE STACK 
SYNTAX CHECK FOR COMMA 
EVALUATE TARGET STRING EXPRESSION 
SAVE ADDRESS AND LENGTH ON STACK 
SYNTAX CHECK FOR ')' 

* LOAD X WITH SEARCH STRING DESCRIPTOR ADDRESS 

* AND GET THE LENGTH ANDADDRESS OF SEARCH STRING 
SAVE LENGTH ON STACK 



AT THIS POINT THE STACK HAS THE FOLLOWING INFORMATION 

ON IT: 0,S-SEARCH LENGTH; 1,S-TARGET LENGTH; 2 3,S-TARGET 

ADDRESS; 4 5,S-SEARCH DESCRIPTOR ADDRESS; 6,S-SEARCH POSITION 

COMPARE LENGTH OF SEARCH STRING TO START 

POSITION; RETURN IF LENGTH < START 

GET LENGTH OF TARGET STRING 

BRANCH IF TARGET STRING = NULL 

GET START POSITION 

MOVE BACK ONE 

POINT X TO POSITION IN SEARCH STRING WHERE SEARCHING WILL START 

POINT Y TO SEARCH POSITION 

POINT U TO START OF TARGET 

LOAD ACCB WITH LENGTH OF TARGET 

LOAD ACCA WITH LENGTH OF SEARCH 

SUBTRACT SEARCH POSITION FROM SEARCH LENGTH 

ADD ONE 

COMPARE TO TARGET LENGTH 

RETURN IF TARGET LENGTH > WHAT S LEFT OF SEARCH STRING 

GET A CHARACTER FROM SEARCH STRING 

COMPARE IT TO TARGET STRING 

BRANCH IF NO MATCH 

DECREMENT TARGET LENGTH 

CHECK ANOTHER CHARACTER 

GET MATCH POSITION 

SKIP NEXT BYTE 

MATCH ADDRESS = 

CLEAN UP THE STACK 

CONVERT ACCB TO FP NUMBER 

INCREMENT SEARCH POSITION 

MOVE X TO NEXT SEARCH POSITION 

KEEP LOOKING FOR A MATCH 

* ASCII TO FLOATING POINT CONVERSION RAM HOOK 
XVEC19 CMPA #'S' * 

BNE L8845 * RETURN IF NOT HEX OR OCTAL VARIABLE 

LEAS $02, S PURGE RETURN ADDRESS FROM STACK 

* PROCESS A VARIABLE PRECEEDED BY A S (SH,SO) 

* CLEAR BOTTOM TWO 

* BYTES OF FPA0 

BYTES 2,3 OF FPA0 = (TEMPORARY ACCUMULATOR) 
GET A CHARACTER FROM BASIC 
OCTAL VALUE? 
YES 

HEX VALUE? 
YES 

GET CURRENT INPUT CHARACTER 
DEFAULT TO OCTAL (SO) 

* SYNTAX ERROR IF 
BASE 8 MULTIPLIER 
ADD DIGIT TO TEMPORARY ACCUMULATOR 

GET A CHARACTER FROM BASIC 
BRANCH IF NUMERIC 

* CLEAR 2 HIGH ORDER 

* BYTES OF FPA0 
SET VARXABLE TYPE TO NUMERIC 





CMPB 


$06, S 




BLO 


L87D9 




LDA 


$01, S 




BEQ 


L87D6 




LDB 


$06, S 




DECB 






ABX 




L87BE 


LEAY 


,x 




LOU 


$02, S 




LDB 


$01, S 




LDA 


,s 




SUBA 


$06, S 




INCA 






CMPA 


$01, S 




BLO 


L87D9 


L87CD 


LDA 


,x+ 




CMPA 


,u+ 




BNE 


L87DF 




DECB 






BNE 


L87CD 


L87D6 


LDB 


$06, S 


L87D8 


FCB 


SKPl 


L87D9 


CLRB 






LEAS 


$07, S 




JMP 


LB4F3 


L87DF 


INC 


$06, S 




LEAX 


$01, Y 




BRA 


L87BE 



L87EB 


CLR 


FPA0+2 




CLR 


FPA0+3 




LDX 


#FPA0+2 




JSR 


GETNCH 




CMPA 


#'0' 




BEQ 


L880A 




CMPA 


#'H' 




BEQ 


L881F 




JSR 


GETCCH 




BRA 


L880C 


L8800 


CMPA 


#'8' 




LBHI 


LBZ77 




LDB 


#$03 




BSR 


L8834 


* EVALUATE AN 


SO VARU 


L880A 


JSR 


GETNCH 


L880C 


BLO 


L8800 


L880E 


CLR 


FPA0 




CLR 


FPA0+1 




CLR 


VALTYP 
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0961 


8814 


0F 


63 




0962 


8816 


0F 


54 




0963 


8818 


C6 


A0 




0964 


881A 


D7 


4F 




0965 


881C 


7E 


BA 


IC 


0966 










0967 


881F 


9D 


9F 




0968 


8821 


25 


0B 




0969 


8823 


BD 


B3 


A2 


0970 


8826 


25 


E6 




0971 


8828 


81 


47 




0972 


882A 


24 


E2 




0973 


882C 


80 


07 




0974 


882 E 


C6 


04 




0975 


8830 


8D 


02 




0976 


8832 


20 


EB 




0977 


8834 


68 


01 




0978 


8836 


69 


84 




0979 


8838 


10 


25 


32 56 


0980 


883C 


5A 






0981 


883D 


26 


F5 




0982 


883F 


80 


30 




0983 


8841 


AB 


01 




0984 


8843 


A7 


01 




0985 


8845 


39 






0986 










0987 










0988 


8846 


35 


40 




0989 


8848 


0F 


06 




0990 


884A 


9E 


A6 




0991 


884C 


9D 


9F 




0992 


884 E 


81 


26 




0993 


8850 


27 


99 




0994 


8852 


81 


CC 




0995 


8854 


27 


5E 




0996 


8856 


81 


FF 




0997 


8858 


26 


08 




0998 


885A 


9D 


9F 




0999 


8850 


81 


83 




1000 


885 E 


10 


27 


00 CA 


1001 


8862 


9F 


A6 




1002 


8864 


6E 


C4 




1003 


8866 


9E 


68 




1004 


8868 


30 


01 




1005 


886A 


26 


D9 




1006 


886C 


C6 


16 




1007 


886 E 


7E 


AC 


46 


1008 










1009 










1010 


8871 


AE 


9F 


00 A6 


1011 


8875 


8C 


FF 


83 


1012 


8878 


10 


27 


00 93 


1013 


887C 


8D 


23 




1014 


887E 


8D 


E6 




1015 


8880 


BD 


B2 


6A 


1016 


8883 


C6 


80 




1017 


8885 


D7 


08 




1018 


8887 


BD 


B3 


57 


1019 


888A 


8D 


25 




1020 


888C 


BD 


B2 


67 


1021 


888 F 


C6 


B3 




1022 


8891 


BD 


B2 


6F 


1023 


8894 


9E 


4B 




1024 


8896 


DC 


A6 




1025 


8898 


ED 


84 




1026 


889A 


DC 


39 




1027 


889C 


ED 


02 




1028 


889 E 


7E 


AE 


E0 


1029 


88A1 


C6 


CC 




1030 


88A3 


BD 


B2 


6F 


1031 


88A6 


C6 


80 




1032 


88A8 


D7 


08 




1033 


88AA 


8A 


80 




1034 


88AC 


BD 


B3 


5C 


1035 


88AF 


9F 


4B 




1036 


88B1 


7E 


Bl 


43 


1037 










1038 


88B4 


8D 


EB 




1039 


88B6 


34 


10 




1040 


88B8 


BD 


B2 


62 


1041 


88BB 


8D 


F4 




1042 


88BD 


35 


40 




1043 


88BF 


C6 


32 




1044 


88C1 


AE 


42 




1045 


88C3 


27 


A9 




1046 


88C5 


10 


9E 


A6 


1047 


88C8 


EE 


C4 




1048 


88CA 


DF 


A6 




1049 


88CC 


A6 


04 




1050 


88CE 


34 


02 




1051 


88D0 


EC 


84 




1052 


88D2 


EE 


02 




1053 


88D4 


34 


76 




1054 


88D6 


BD 


BC 


35 


1055 


88D9 


BD 


Bl 


41 


1056 


88DC 


35 


76 







CLR 


FPSBYT 




CLR 


FP0SGN 




LDB 


#$A0 




STB 


FP0EXP 




JMP 


LBAIC 


* EVALUATE AN 


SH VARIABLE 


L881F 


JSR 


GETNCH 




BLO 


L882E 




JSR 


LB3A2 




BLO 


L880E 




CMPA 


#'G' 




BCC 


L880E 




SUBA 


#'A'-C9'+1 


L882E 


LDB 


#$04 




BSR 


L8834 




BRA 


L881F 


L8834 


ASL 


$01, X 




ROL 


,x 




LBCS 


LBA92 




DECB 






BNE 


L8834 




SUBA 


#'0' 




ADDA 


$01, X 




STA 


$01, X 


L8845 


RTS 




* EXPRESSION 


EVALUATION R/ 


XVEC15 


PULS 


U 




CLR 


VALTYP 




LDX 


CHARAD 




JSR 


GETNCH 




CMPA 


#'S' 




BEO 


L87EB 




CMPA 


#$CC 




BEO 


L88B4 




CMPA 


#$FF 




BNE 


L8862 




JSR 


GETNCH 




CMPA 


#$83 




LBEO 


L892C 


L8862 


STX 


CHARAD 




JMP 


,u 


L8866 


LDX 


CURLIN 




LEAX 


$01, X 




BNE 


L8845 




LDB 


#2*11 


L886E 


JMP 


LAC46 


* DEF 






DEF 


LDX 


[CHARAD] 




CMPX 


#$FF83 




LBEO 


L890F 




BSR 


L88A1 




BSR 


L8866 




JSR 


LB26A 




LDB 


#$80 




STB 


ARYDIS 




JSR 


LB357 




BSR 


L88B1 




JSR 


LB267 




LDB 


#$B3 




JSR 


LB26F 




LDX 


V4B 




LDD 


CHARAD 




STD 


,x 




LDD 


VARPTR 




STD 


$02, X 




JMP 


LAEE0 


L88A1 


LDB 


#$CC 




JSR 


LB26F 




LDB 


#$80 




STB 


ARYDIS 




ORA 


#$80 




JSR 


LB35C 




STX 


V4B 


L88B1 


JMP 


LB143 


* EVALUATE AN 


FN CALL 


L88B4 


BSR 


L88A1 




PSHS 


X 




JSR 


LB262 




BSR 


L88B1 




PULS 


U 




LDB 


#2*25 




LDX 


$02, U 




BEO 


L886E 




LDY 


CHARAD 




LDU 


,u 




STU 


CHARAD 




LDA 


$04, X 




PSHS 


A 




LDD 


,x 




LDU 


$02, X 




PSHS 


U,Y,X,B,A 




JSR 


LBC35 


L88D9 


JSR 


LB141 




PULS 


A,B,X,Y,U 



ZERO OUT SUB BYTE OF FPA0 
ZERO OUT MANTISSA SIGN OF FPA0 

* SET EXPONENT OF FPA0 

GO NORMALIZE FPA0 

GET A CHARACTER FROM BASIC 

BRANCH IF NUMERIC 

SET CARRY IF NOT ALPHA 

BRANCH IF NOT ALPHA OR NUMERIC 

CHECK FOR LETTERS A-F 

BRANCH IF >= G (ILLEGAL HEX LETTER) 

SUBTRACT ASCII DIFFERENCE BETWEEN A AND 9 

BASE 16 DIGIT MULTIPLIER = 2**4 

ADD DIGIT TO TEMPORARY ACCUMULATOR 

KEEP EVALUATING VARIABLE 

* MULTIPLY TEMPORARY 

* ACCUMULATOR BY TWO 
OV OVERFLOW ERROR 

DECREMENT SHIFT COUNTER 

MULTIPLY TEMPORARY ACCUMULATOR AGAIN 

MASK OFF ASCII 

* ADD DIGIT TO TEMPORARY 

* ACCUMULATOR AND SAVE IT 



PULL RETURN ADDRESS AND SAVE IN U REGISTER 

SET VARIABLE TYPE TO NUMERIC 

CURRENT INPUT POINTER TO X 

GET CHARACTER FROM BASIC 

HEX AND OCTAL VARIABLES ARE PRECEEDED BY !. 

PROCESS A S VARIABLE 

TOKEN FOR FN 

PROCESS FN CALL 

CHECK FOR SECONDARY TOKEN 

NOT SECONDARY 

GET CHARACTER FROM BASIC 

TOKEN FOR USR 

PROCESS USR CALL 

RESTORE BASIC S INPUT POINTER 

RETURN TO CALLING ROUTINE 

GET CURRENT LINE NUMBER 

IN DIRECT MODE? 

RETURN IF NOT IN DIRECT MODE 

ILLEGAL DIRECT STATEMENT ERROR 
PROCESS ERROR 



GET TWO INPUT CHARS 

TOKEN FOR USR 

BRANCH IF DEF USR 

GET DESCRIPTOR ADDRESS FOR FN VARIABLE NAME 

DON T ALLOW DEF FN IF IN DIRECT MODE 

SYNTAX CHECK FOR ( 

* GET THE FLAG TO INDICATE ARRAY VARIABLE SEARCH DISABLE 

* AND SAVE IT IN THE ARRAY DISABLE FLAG 
GET VARIABLE DESCRIPTOR 

TM ERROR IF STRING 
SYNTAX CHECK FOR ) 
TOKEN FOR = 
DO A SYNTAX CHECK FOR = 
GET THE ADDRESS OF THE FN NAME DESCRIPTOR 

* GET THE CURRENT INPUT POINTER ADDRESS AND 

* SAVE IT IN FIRST 2 BYTES OF THE DESCRIPTOR 
= GET THE DESCRIPTOR ADDRESS OF THE ARGUMENT 

= VARIABLE AND SAVE IT IN THE DESCRIPTOR OF THE FN NAME 

MOVE INPUT POINTER TO END OF LINE OR SUBLINE 

TOKEN FOR FN 

DO A SYNTAX CHECK FOR FN 

* GET THE FLAG TO INDICATE ARRAY VARIABLE SEARCH DISABLE FLAG 

* AND SAVE IT IN ARRAY VARIABLE FLAG 

SET BIT 7 OF CURRENT INPUT CHARACTER TO INDICATE AN FN VARIABLE 

* GET THE DESCRIPTOR ADDRESS OF THIS 

* VARIABLE AND SAVE IT IN V4B 
TM ERROR IF STRING VARIABLE 

* GET THE DESCRIPTOR OF THE FN NAME 

* VARIABLE AND SAVE IT ON THE STACK 
SYNTAX CHECK FOR ( S EVALUATE EXPR 

TM ERROR IF STRING VARIABLE 
POINT U TO FN NAME DESCRIPTOR 

UNDEFINED FUNCTION CALL ERROR 
POINT X TO ARGUMENT VARIABLE DESCRIPTOR 
BRANCH TO ERROR HANDLER 
SAVE CURRENT INPUT POINTER IN Y 

* POINT U TO START OF FN FORMULA AND 

* SAVE IT IN INPUT POINTER 
= GET FP VALUE OF 

= ARGUMENT VARIABLE, CURRENT INPUT 

= POINTER, AND ADDRESS OF START 

= OF FN FORMULA AND SAVE 

= THEM ON THE STACK 

PACK FPA0 AND SAVE IT IN (X) 

EVALUATE FN EXPRESSION 

RESTORE REGISTERS 
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1057 


88DE 


ED 


84 




1058 


88E0 


EF 


02 




1059 


88E2 


35 


02 




1060 


88E4 


A7 


04 




1061 


88E6 


9D 


A5 




1062 


88 E8 


10 


26 


29 8B 


1063 


88EC 


10 


9F 


A6 


1064 


88EF 


39 






1065 










1066 










1067 


88F0 


CI 


32 




1068 


88F2 


25 


FB 




1069 


88F4 


BD 


A7 


E9 


1070 


88F7 


BD 


A9 


74 


1071 


88 FA 


BD 


AD 


33 


1072 


88FD 


0F 


6F 




1073 


88FF 


BD 


B9 


5C 


1074 


8902 


BD 


B9 


AF 


1075 


8905 


8E 


88 


D9 


1076 


8908 


7E 


AC 


60 


1077 










1078 










1079 










1080 


890B 


55 


46 




1081 


890D 


4E 


45 




1082 










1083 










1084 


890F 


9D 


9F 




1085 


8911 


8D 


09 




1086 


8913 


34 


10 




1087 


8915 


8D 


2D 




1088 


8917 


35 


40 




1089 


8919 


AF 


C4 




1090 


891B 


39 






1091 


891C 


5F 






1092 


891D 


9D 


9F 




1093 


891F 


24 


06 




1094 


8921 


80 


30 




1095 


8923 


IF 


89 




1096 


8925 


9D 


9F 




1097 


8927 


9E 


B0 




1098 


8929 


58 






1099 


892A 


3A 






1100 


892B 


39 






1101 










1102 


892C 


8D 


EE 




1103 


892E 


AE 


84 




1104 


8930 


34 


10 




1105 


8932 


BD 


B2 


62 


1106 


8935 


8E 


00 


4F 


1107 


8938 


96 


06 




1108 


893A 


27 


07 




1109 


893C 


BD 


B6 


57 


1110 


893F 


9E 


52 




nil 


8941 


96 


06 




1112 


8943 


39 






1113 


8944 


C6 


B3 




1114 


8946 


BD 


B2 


6F 


1115 


8949 


7E 


B7 


3D 


1116 










1117 










1118 










1119 


894C 


B6 


FF 


03 


1120 


894F 


2B 


01 




1121 


8951 


3B 






1122 


8952 


B6 


FF 


02 


1123 


8955 


BE 


01 


12 


1124 


8958 


30 


01 




1125 


895A 


BF 


01 


12 


1126 


895D 


7E 


9C 


3E 


1127 










1128 


8960 


9D 


9F 




1129 


8962 


8D 


E0 




1130 


8964 


BF 


01 


12 


1131 


8967 


39 






1132 










1133 










1134 


8968 


BE 


01 


12 


1135 


896B 


9F 


52 




1136 


896D 


7E 


88 


0E 


1137 










1138 










1139 


8970 


10 


27 


2A D6 


1140 


8974 


BD 


AF 


67 


1141 


8977 


BD 


AD 


01 


1142 


897A 


9F 


D3 




1143 


897C 


9D 


A5 




1144 


897E 


27 


10 




1145 


8980 


81 


AC 




1146 


8982 


26 


3B 




1147 


8984 


9D 


9F 




1148 


8986 


27 


04 




1149 


8988 


8D 


24 




1150 


898A 


20 


04 




1151 


898C 


86 


FF 




1152 


898E 


97 


2B 





STD 


,x 


STU 


$02, X 


PULS 


A 


STA 


$04, X 


JSR 


GETCCH 


LBNE 


LB277 


STY 


CHARAD 



ERROR DRIVER RAM HOOK 



CMPB 


#2*25 


BLO 


L88EF 


JSR 


LA7E9 


JSR 


LA974 


JSR 


LAD33 


CLR 


DEVNUM 


JSR 


LB95C 


JSR 


LB9AF 


LDX 


#L890B-25*2 


JMP 


LAC60 



* GET THE FP 

* VALUE OF THE ARGUMENT 

* VARIABLE OFF OF THE 

* STACK AND RE-SAVE IT 

GET FINAL CHARACTER OF THE FN FORMULA 

SYNTAX ERROR IF NOT END OF LINE 
RESTORE INPUT POINTER 



CHECK FOR EXBAS ERROR NUMBER 

BRANCH IF < EXBAS ERROR 

TURN CASSETTE MOTOR OFF 

DISABLE ANALOG MULTIPLEXER 

DO PART OF A NEW 

SET DEVICE NUMBER TO SCREEN 

MOVE CURSOR TO START OF NEXT LINE 

SEND A ? TO CONSOLE OUT 

POINT X TO EXBAS ERRORS 

PROCESS ERROR 



ADDITIONAL ERROR MESSAGES ADDED BY EXTENDED BASIC 



L890B 


FCC 


'UF' 


L890D 


FCC 


•NE' 


* DEF 


USR 




L890F 


JSR 


GETNCH 




BSR 


L891C 




PSHS 


X 




BSR 


L8944 




PULS 


U 




STX 


,u 




RTS 




L891C 


CLRB 






JSR 


GETNCH 




BCC 


L8927 




SUBA 


#'0' 




TFR 


A,B 




JSR 


GETNCH 


L8927 


LDX 
ASLB 
ABX 
RTS 


USRADR 


* PROCESS A USR CALL 


L892C 


BSR 


L891C 




LDX 


,x 




PSHS 


X 




JSR 


LB262 




LDX 


#FP0EXP 




LDA 


VALTYP 




BEO 


L8943 




JSR 


LB657 




LDX 


FPA0+2 




LDA 


VALTYP 


L8943 


RTS 




L8944 


LDB 


#$B3 




JSR 


LB26F 




JMP 


LB73D 



EXTENDED BASIC S IRO ROUTINE 



XIROSV 


LDA 


PIA0+3 




BMI 


L8952 




RTI 




L8952 


LDA 


PIA0+2 


L8955 


LDX 


TIMVAL 




LEAX 


$01, X 




STX 


TIMVAL 




JMP 


L9C3E 


L8960 


JSR 


GETNCH 




BSR 


L8944 




STX 


TIMVAL 




RTS 




* TIMER 






TIMER 


LDX 


TIMVAL 




STX 


FPA0+2 




JMP 


L880E 


* DEL 






DEL 


LBEO 


LB44A 




JSR 


LAF67 




JSR 


LAD01 




STX 


VD3 




JSR 


GETCCH 




BEO 


L8990 




CMPA 


#$AC 




BNE 


L89BF 




JSR 


GETNCH 




BEO 


L898C 




BSR 


L89AE 




BRA 


L8990 


L898C 


LDA 


#$FF 




STA 


BINVAL 



25 UNDEFINED FUNCTION (FN) CALL 

26 FILE NOT FOUND 



SKIP PAST SECOND BYTE OF DEF USR TOKEN 

GET FN NUMBER 

SAVE FN EXEC ADDRESS STORAGE LOC 

CALCULATE EXEC ADDRESS 

GET FN EXEC ADDRESS STORAGE LOC 

SAVE EXEC ADDRESS 

DEFAULT TO USR0 IF NO ARGUMENT 

GET A CHARACTER FROM BASIC 

BRANCH IF NOT NUMERIC 

MASK OFF ASCII 

SAVE USR NUMBER IN ACCB 

GET A CHARACTER FROM BASIC 

GET ADDRESS OF STORAGE LOCs FOR USR ADDRESS 

X2 - 2 BYTES/USR ADDRESS 

ADD OFFSET TO START ADDRESS OF STORAGE LOCs 



GET STORAGE LOC OF EXEC ADDRESS FOR USR N 

* GET EXEC ADDRESS AND 

* PUSH IT ONTO STACK 

SYNTAX CHECK FOR ( S EVALUATE EXPR 

POINT X TO FPA0 

GET VARIABLE TYPE 

BRANCH IF NUMERIC, STRING IF <> 

GET LENGTH S ADDRESS OF STRING VARIABLE 

GET POINTER TO STRING DESCRIPTOR 

GET VARIABLE TYPE 

JUMP TO USR ROUTINE (PSHS X ABOVE) 

TOKEN FOR = 

DO A SYNTAX CHECK FOR = 

EVALUATE EXPRESSION, RETURN VALUE IN X 



GET PIA0, PORT B CONTROL REGISTER 

BRANCH IF 60 HZ INTERRUPT 

RETURN IF 63.5 MICROSECOND INTERRU 

RESET PIA INTERRUPT FLAG 

GET REAL TIME CLOCK 

INCREMENT IT 

SAVE IT 

GO CHECK SOME MORE STUFF 

GET A CHARACTER FROM BASIC 
GET NEW TIMER VALUE 
SET TIMER COUNTER 



GET TIMER VALUE 

SAVE TIMER VALUE IN BOTTOM OF FPA0 

CONVERT BALANCE OF FPA0 TO POSITIVE INTEGER 



FC ERROR IF NO ARGUMENT 

CONVERT A DECIMAL BASIC NUMBER TO BINARY 

FIND RAM ADDRESS OF START OF A BASIC LINE 

SAVE RAM ADDRESS OF STARTING LINE NUMBER 

GET CURRENT INPUT CHARACTER 

BRANCH IF END OF LINE 

TOKEN FOR -' 

TERMINATE COMMAND IF LINE NUMBER NOT FOLLOWED BY 

GET A CHARACTER FROM BASIC 

IF END OF LINE, USE DEFAULT ENDING LINE NUMBER 

* CONVERT ENDING LINE NUMBER TO BINARY 

* AND SAVE IT IN BINVAL 

= USE $FFXX AS DEFAULT ENDING 

= LINE NUMBER - SAVE IT IN BINVAL 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF EXTENDED BASIC 1.1 



ORIGINlSPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



1153 


8998 


DE 


D3 




L8998 


LDU 


VD3 


1154 


8992 


8C 






L8992 


FCB 


SKP2 


1155 


8993 


EE 


C4 




L8993 


LDU 


,u 


1156 


8995 


EC 


C4 






LDD 


,u 


1157 


8997 


27 


86 






BEQ 


L899F 


1158 


8999 


EC 


42 






LDD 


$82, U 


1159 


899B 


93 


2B 






SUBD 


BINVAL 


1168 


899D 


23 


F4 






BLS 


L8993 


1161 


899F 


9E 


D3 




L899F 


LDX 


VD3 


1162 


89A1 


8D 


15 






BSR 


L89B8 


1163 


89A3 


BD 


AD 


21 




JSR 


LAD21 


1164 


89A6 


9E 


D3 






LDX 


«D3 


1165 


89A8 


BD 


AC 


Fl 




JSR 


LACFl 


1166 


89AB 


7E 


AC 


73 




JMP 


LAC73 


1167 


89AE 


BD 


AF 


67 


L89AE 


JSR 


LAF67 


1168 


89B1 


7E 


A5 


C7 




JMP 


LA5C7 


1169 


89B4 


A6 


C8 




L89B4 


LDA 


,u+ 


1178 


89B6 


A7 


88 






STA 


,x+ 


1171 


89B8 


11 


93 


IB 


L89B8 


CMPU 


VARTAB 


1172 


89BB 


26 


F7 






BNE 


L89B4 


1173 


89BD 


9F 


IB 






STX 


VARTAB 


1174 


89BF 


39 






L89BF 


RTS 




1175 
















1176 










* LINE 


INPUT 




1177 


89C8 


BD 


88 


66 


L89C8 


JSR 


L8866 


1178 


89C3 


9D 


9F 






JSR 


GETNCH 


1179 


89C5 


81 


23 






CMPA 


#'#' 


1188 


89C7 


26 


89 






BNE 


L89D2 


1181 


89C9 


BD 


A5 


A5 




JSR 


LA5A5 


1182 


89CC 


BD 


A3 


ED 




JSR 


LA3ED 


1183 


89CF 


BD 


B2 


6D 




JSR 


SYNCOMMA 


1184 


89D2 


81 


22 




L89D2 


CMPA 


#"" 


1185 


89D4 


26 


8B 






BNE 


L89E1 


1186 


89D6 


BD 


B2 


44 




JSR 


LB244 


1187 


89D9 


C6 


3B 






LDB 


#' ;■ 


1188 


89DB 


BD 


B2 


6F 




JSR 


LB26F 


1189 


89DE 


BD 


B9 


9F 




JSR 


LB99F 


1198 


89E1 


32 


7E 




L89E1 


LEAS 


$-82, S 


1191 


89E3 


BD 


B8 


35 




JSR 


LB835 


1192 


89E6 


32 


62 






LEAS 


$82, S 


1193 


89 E8 


8F 


6F 






CLR 


DEVNUM 


1194 


89 EA 


BD 


B3 


57 




JSR 


LB357 


1195 


89ED 


9F 


3B 






STX 


VARDES 


1196 


89EF 


BD 


Bl 


46 




JSR 


LB146 


1197 


89F2 


8E 


82 


DC 




LDX 


#LINBUF 


1198 


89F5 


4F 








CLRA 




1199 


89F6 


BD 


B5 


lA 




JSR 


LB51A 


1288 


89F9 


7E 


AF 


A4 




JMP 


LAFA4 


1281 


89FC 


BD 


AF 


67 


L89FC 


JSR 


LAF67 


1282 


89FF 


9E 


2B 






LDX 


BINVAL 


1283 


8A81 


39 








RTS 




1284 


8A82 


9E 


Dl 




L8A82 


LDX 


VDl 


1285 


8A84 


9F 


2B 




L8A84 


STX 


BINVAL 


1286 


8A86 


7E 


AD 


81 




JMP 


LAD81 


1287 
















1288 










* RENUM 






1289 


8A89 


BD 


AD 


26 


RENUM 


JSR 


LAD26 


1218 


8A8C 


CC 


88 


8A 




LDD 


#18 


1211 


8A8F 


DD 


D5 






STD 


VD5 


1212 


8A11 


DD 


CF 






STD 


VCF 


1213 


8A13 


5F 








CLRB 




1214 


8A14 


DD 


Dl 






STD 


VDl 


1215 


8A16 


9D 


A5 






JSR 


GETCCH 


1216 


8A18 


24 


86 






BCC 


L8A28 


1217 


8A1A 


8D 


E8 






BSR 


L89FC 


1218 


8A1C 


9F 


D5 






STX 


VD5 


1219 


8A1E 


9D 


A5 






JSR 


GETCCH 


1228 


8A28 


27 


IB 




L8A28 


BEQ 


L8A3D 


1221 


8A22 


BD 


B2 


6D 




JSR 


SYNCOMMA 


1222 


8A25 


24 


86 






BCC 


L8A2D 


1223 


8A27 


8D 


D3 






BSR 


L89FC 


1224 


8A29 


9F 


Dl 






STX 


VDl 


1225 


8A2B 


9D 


A5 






JSR 


GETCCH 


1226 


8A2D 


27 


8E 




L8A2D 


BEQ 


L8A3D 


1227 


8A2F 


BD 


B2 


6D 




JSR 


SYNCQMMA 


1228 


8A32 


24 


86 






BCC 


L8A3A 


1229 


8A34 


8D 


C6 






BSR 


L89FC 


1238 


8A36 


9F 


CF 






STX 


VCF 


1231 


8A38 


27 


49 






BEQ 


L8A83 


1232 


8A3A 


BD 


A5 


C7 


L8A3A 


JSR 


LA5C7 


1233 


8A3D 


8D 


C3 




L8A3D 


BSR 


L8A82 


1234 


8A3F 


9F 


D3 






STX 


VD3 


1235 


8A41 


9E 


D5 






LDX 


VD5 


1236 


8A43 


8D 


BF 






BSR 


L8A84 


1237 


8A45 


9C 


D3 






CMPX 


VD3 


1238 


8A47 


25 


3A 






BLO 


L8A83 


1239 


8A49 


8D 


IC 






BSR 


L8A67 


1248 


8A4B 


BD 


8A 


DD 




JSR 


L8ADD 


1241 


8A4E 


BD 


AC 


EF 




JSR 


LACEF 


1242 


8A51 


8D 


AF 






BSR 


L8A82 


1243 


8A53 


9F 


D3 






STX 


VD3 


1244 


8A55 


8D 


3A 






BSR 


L8A91 


1245 


8A57 


8D 


8F 






BSR 


L8A68 


1246 


8A59 


8D 


36 






BSR 


L8A91 


1247 


8A5B 


BD 


8B 


7B 




JSR 


L8B7B 


1248 


8A5E 


BD 


AD 


26 




JSR 


LAD26 



POINT U TO STARTING LINE NUMBER ADDRESS 

SKIP TWO BYTES 

POINT U TO START OF NEXT LINE 

CHECK FOR END OF PROGRAM 

BRANCH IF END OF PROGRAM 

LOAD ACCD WITH THIS LINE S NUMBER 

SUBTRACT ENDING LINE NUMBER ADDRESS 

BRANCH IF = < ENDING LINE NUMBER 

GET STARTING LINE NUMBER 

MOVE (U) TO (X) UNTIL END OF PROGRAM 

RESET BASIC S INPUT POINTER AND ERASE VARIABLES 

GET STARTING LINE NUMBER ADDRESS 

RECOMPUTE START OF NEXT LINE ADDRESSES 

JUMP TO BASIC S MAIN COMMAND LOOP 

GO GET LINE NUMBER CONVERTED TO BINARY 

MAKE SURE THERE S NO MORE ON THIS LINE 

GET A BYTE FROM (U) 

MOVE THE BYTE TO (X) 

COMPARE TO END OF BASIC 

BRANCH IF NOT AT END 

SAVE (X) AS NEW END OF BASIC 



BS ERROR IF IN DIRECT MODE 
GET A CHAR FROM BASIC 

* CHECK FOR DEVICE NUMBER FLAG AND 

* BRANCH IF NOT THERE 

CHECK FOR VALID DEVICE NUMBER 

CHECK FOR OPEN FILE 

SYNTAX CHECK FOR COMMA 

CHECK FOR PROMPT STRING 

BRANCH IF NO PROMPT STRING 

STRIP OFF PROMPT STRING S PUT IT ON STRING STACK 

* 

* DO A SYNTAX CHECK FOR; 

REMOVE PROMPT STRING FROM STRING STACK S SEND TO CONSOLE OUT 

RESERVE TWO STORAGE SLOTS ON STACK 

INPUT A LINE FROM CURRENT INPUT DEVICE 

CLEAN UP THE STACK 

SET DEVICE NUMBER TO SCREEN 

SEARCH FOR A VARIABLE 

SAVE POINTER TO VARIABLE DESCRIPTOR 

TM ERROR IF VARIABLE TYPE = NUMERIC 
POINT X TO THE STRING BUFFER WHERE THE INPUT STRING WAS STORED 
TERMINATOR CHARACTER 8 (END OF LINE) 

PARSE THE INPUT STRING AND STORE IT IN THE STRING SPACE 
REMOVE DESCRIPTOR FROM STRING STACK 
STRIP A DECIMAL NUMBER FROM BASIC INPUT LINE 
GET BINARY VALUE 

GET CURRENT OLD NUMBER BEING RENUMBERED 
SAVE THE LINE NUMBER BEING SEARCHED FOR 
GO FIND THE LINE NUMBER IN BASIC PROGRAM 



ERASE VARIABLES 

DEFAULT LINE NUMBER INTERVAL 

SAVE DEFAULT RENUMBER START LINE NUMBER 

SAVE DEFAULT INTERVAL 

NOW ACCD = 8 

DEFAULT LINE NUMBER OF WHERE TO START RENUMBERING 

GET CURRENT INPUT CHARACTER 

BRANCH IF NOT NUMERIC 

CONVERT DECIMAL NUMBER IN BASIC PROGRAM TO BINARY 

SAVE LINE NUMBER WHERE RENUMBERING STARTS 

GET CURRENT INPUT CHARACTER 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

BRANCH IF NEXT CHARACTER NOT NUMERIC 

CONVERT DECIMAL NUMBER IN BASIC PROGRAM TO BINARY 

SAVE NEW RENUMBER LINE 

GET CURRENT INPUT CHARACTER 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

BRANCH IF NEXT CHARACTER NOT NUMERIC 

CONVERT DECIMAL NUMBER IN BASIC PROGRAM TO BINARY 

SAVE NEW INTERVAL 

FC ERROR 
CHECK FOR MORE CHARACTERS ON LINE - SYNTAX ERROR IF ANY 
GO GET ADDRESS OF OLD NUMBER BEING RENUMBERED 
SAVE ADDRESS 

GET NEXT RENUMBERED LINE NUMBER TO USE 
FIND THE LINE NUMBER IN THE BASIC PROGRAM 
COMPARE TO ADDRESS OF OLD LINE NUMBER 

FC ERROR IF NEW ADDRESS < OLD ADDRESS 
MAKE SURE RENUMBERED LINE NUMBERS WILL BE IN RANGE 
CONVERT ASCII LINE NUMBERS TO EXPANDED BINARY 
RECALCULATE NEXT LINE RAM ADDRESSES 
GET RAM ADDRESS OF FIRST LINE TO BE RENUMBERED 
SAVE IT 

MAKE SURE LINE NUMBERS EXIST 
INSERT NEW LINE NUMBERS IN LINE HEADERS 
INSERT NEW LINE NUMBERS IN PROGRAM STATEMENTS 
CONVERT PACKED BINARY LINE NUMBERS TO ASCII 
ERASE VARIABLES 
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1249 


8A61 


BD 


AC EF 




JSR 


LACEF 


1250 


8A64 


7E 


AC 73 




JMP 


LAC73 


1251 


8A67 


86 




L8A67 


FCB 


SKPILD 


1252 


8A68 


4F 




L8A68 


CLRA 




1253 


8A69 


97 


D8 




STA 


VD8 


1254 


8A6B 


9E 


D3 




LDX 


VD3 


1255 


8A6D 


DC 


D5 




LDD 


VD5 


1256 


8A6F 


8D 


15 




BSR 


L8A86 


1257 


8A71 


0D 


D8 


L8A71 


TST 


VD8 


1258 


8A73 


26 


02 




BNE 


L8A77 


1259 


8A75 


ED 


02 




STD 


$02, X 


1260 


8A77 


AE 


84 


L8A77 


LDX 


,x 


1261 


8A79 


8D 


0B 




BSR 


L8A86 


1262 


8A7B 


D3 


CF 




ADDD 


VCF 


1263 


8A7D 


25 


04 




BLO 


L8A83 


1264 


8A7F 


81 


FA 




CMPA 


#MAXLIN 


1265 


8A81 


25 


EE 




BLO 


L8A71 


1266 


8A83 


7E 


B4 4A 


L8A83 


JMP 


LB44A 


1267 








* TEST 


THE TWO BYTES POINTED TO BY (X). 


1268 








* NORMAL RETURN IF <> 0. IF = (END OF 


1269 








* PROGRAM) RETURN IS PULLED OFF STACK AND 


1270 








* YOU 


RETURN ■ 


TO PREVIOUS SUBROUTINE CALL. 


1271 


8A86 


34 


06 


L8A86 


PSHS 


B,A 


1272 


8A88 


EC 


84 




LDD 


,x 


1273 


8A8A 


35 


06 




PULS 


A.B 


1274 


8A8C 


26 


02 




BNE 


L8A90 


1275 


8A8E 


32 


62 




LEAS 


$02, S 


1276 


8A90 


39 




L8A90 


RTS 




1277 


8A91 


9E 


19 


L8A91 


LDX 


TXTTAB 


1278 


8A93 


30 


IF 




LEAX 


$-01, X 


1279 


8A95 


30 


01 


L8A95 


LEAX 


$01, X 


1280 


8A97 


8D 


ED 




BSR 


L8A86 


1281 


8A99 


30 


03 


L8A99 


LEAX 


$03, X 


1282 


8A9B 


30 


01 


L8A9B 


LEAX 


$01, X 


1283 


8A9D 


A6 


84 




LDA 


,x 


1284 


8A9F 


27 


F4 




BEO 


L8A95 


1285 


8AA1 


9F 


0F 




STX 


TEMPTR 


1286 


8AA3 


4A 






DECA 




1287 


8AA4 


27 


0C 




BEQ 


L8AB2 


1288 


8AA6 


4A 






DECA 




1289 


8AA7 


27 


2A 




BEQ 


L8AD3 


1290 


8AA9 


4A 






DECA 




1291 


8AAA 


26 


EF 




BNE 


L8A9B 


1292 


8AAC 


86 


03 


L8AAC 


LDA 


#$03 


1293 


8AAE 


A7 


80 




STA 


,x+ 


1294 


8AB0 


20 


E7 




BRA 


L8A99 


1295 


8AB2 


EC 


01 


L8AB2 


LDD 


$01, X 


1296 


8AB4 


6A 


02 




DEC 


$02, X 


1297 


8AB6 


27 


01 




BEO 


L8AB9 


1298 


8AB8 


4F 






CLRA 




1299 


8AB9 


E6 


03 


L8AB9 


LDB 


$03, X 


1300 


8ABB 


6A 


04 




DEC 


$04, X 


1301 


8ABD 


27 


01 




BEQ 


L8AC0 


1302 


8ABF 


5F 






CLRB 




1303 


8AC0 


ED 


01 


L8AC0 


STD 


$01, X 


1304 


8AC2 


DD 


2B 




STD 


BINVAL 


1305 


8AC4 


BD 


AD 01 




JSR 


LAD01 


1306 


8AC7 


9E 


0F 


L8AC7 


LDX 


TEMPTR 


1307 


8AC9 


25 


El 




BLO 


L8AAC 


1308 


8ACB 


DC 


47 




LDD 


V47 


1309 


8ACD 


6C 


80 




INC 


,x+ 


1310 








* 






1311 














1312 


8ACF 


ED 


84 




STD 


,x 


1313 


8AD1 


20 


C6 




BRA 


L8A99 


1314 


8AD3 


6F 


84 


L8AD3 


CLR 


,x 


1315 


8AD5 


AE 


01 




LDX 


$01, X 


1316 


8AD7 


AE 


02 




LDX 


$02, X 


1317 


8AD9 


9F 


47 




STX 


V47 


1318 


8ADB 


20 


EA 




BRA 


L8AC7 


1319 


8ADD 


9E 


19 


L8ADD 


LDX 


TXTTAB 


1320 


8ADF 


20 


04 




BRA 


L8AE5 


1321 


8AE1 


9E 


A6 


L8AE1 


LDX 


CHARAD 


1322 


8AE3 


30 


01 




LEAX 


$01, X 


1323 


8AE5 


8D 


9F 


L8AE5 


BSR 


L8A86 


1324 


8AE7 


30 


02 




LEAX 


$02, X 


1325 


8AE9 


30 


01 


L8AE9 


LEAX 


$01, X 


1326 


8AEB 


9F 


A6 


L8AEB 


STX 


CHARAD 


1327 


8AED 


9D 


9F 


L8AED 


JSR 


GETNCH 


1328 


8AEF 


4D 




L8AEF 


TSTA 




1329 


8AF0 


27 


EF 




BEO 


L8AE1 


1330 


8AF2 


2A 


F9 




BPL 


L8AED 


1331 


8AF4 


9E 


A6 




LDX 


CHARAD 


1332 


8AF6 


81 


FF 




CMPA 


#$FF 


1333 


8AF8 


27 


EF 




BEQ 


L8AE9 


1334 


8AFA 


BD 


01 A0 




JSR 


RVEC22 


1335 


8AFD 


81 


A7 




CMPA 


#$A7 


1336 


8AFF 


27 


12 




BEQ 


L8B13 


1337 


8B01 


81 


84 




CMPA 


#$84 


1338 


8B03 


27 


0E 




BEQ 


L8B13 


1339 


8B05 


81 


81 




CMPA 


#$81 


1340 


8B07 


26 


E4 




BNE 


L8AED 


1341 


8B09 


9D 


9F 




JSR 


GETNCH 


1342 


8B0B 


81 


A5 




CMPA 


#$A5 


1343 


8B0D 


27 


04 




BEQ 


L8B13 


1344 


8B0F 


81 


A6 




CMPA 


#$A6 



RECALCULATE NEXT LINE RAM ADDRESS 

GO BACK TO BASIC S MAIN LOOP 

SKIP ONE BYTE - LDA #$4F 

NEW LINE NUMBER FLAG - 0; INSERT NEW LINE NUMBERS 

SAVE NEW LINE NUMBER FLAG; = INSERT NEW NUMBERS 

GET ADDRESS OF OLD LINE NUMBER BEING RENUMBERED 

GET THE CURRENT RENUMBERED LINE NUMBER 

RETURN IF END OF PROGRAM 

CHECK NEW LINE NUMBER FLAG 

BRANCH IF NOT INSERTING NEW LINE NUMBERS 

STORE THE NEW LINE NUMBER IN THE BASIC PROGRAM 

POINT X TO THE NEXT LINE IN BASIC 

RETURN IF END OF PROGRAM 

ADD INTERVAL TO CURRENT RENUMBERED LINE NUMBER 

FC ERROR IF LINE NUMBER > $FFFF 
LARGEST LINE NUMBER = $F9FF 
BRANCH IF LEGAL LINE NUMBER 

FC ERROR IF LINE NUMBER MS BYTE > $F9 



SAVE ACCD 

TEST THE 2 BYTES POINTED TO BY X 

RESTORE ACCD 

BRANCH IF NOT END OF PROGRAM 

PURGE RETURN ADDRESS FROM STACK 

GET START OF BASIC PROGRAM 

MOVE POINTER BACK ONE 

MOVE POINTER UP ONE 

RETURN IF END OF PROGRAM 

SKIP OVER NEXT LINE ADDRESS AND LINE NUMBER 

MOVE POINTER TO NEXT CHARACTER 

CHECK CURRENT CHARACTER 

BRANCH IF END OF LINE 

SAVE CURRENT POINTER 

=BRANCH IF START OF PACKED NUMERIC LINE 

*BRANCH IF LINE NUMBER EXISTS 

=MOVE TO NEXT CHARACTER IF > 3 

* SET 1ST BYTE = 3 TO INDICATE LINE 

* NUMBER DOESN T CURRENTLY EXIST 
GO GET ANOTHER CHARACTER 

GET MS BYTE OF LINE NUMBER 

DECREMENT ZERO CHECK BYTE 

BRANCH IF MS BYTE <> 

CLEAR MS BYTE 

GET LS BYTE OF LINE NUMBER 

DECREMENT ZERO CHECK FLAG 

BRANCH IF IS BYTE <> 

CLEAR LS BYTE 

SAVE BINARY LINE NUMBER 

SAVE TRIAL LINE NUMBER 

FIND RAM ADDRESS OF A BASIC LINE NUMBER 

GET BACK POINTER TO START OF PACKED LINE NUMBER 

BRANCH IF NO LINE NUMBER MATCH FOUND 

GET START ADDRESS OF LINE NUMBER 

* SET 1ST BYTE = 2, TO INDICATE LINE NUMBER EXISTS IF CHECKING FOR 

* EXISTENCE OF LINE NUMBER, SET IT = 1 IF INSERTING LINE NUMBERS 

SAVE RAM ADDRESS OF CORRECT LINE NUMBER 

GO GET ANOTHER CHARACTER 

CLEAR CARRY FLAG AND 1ST BYTE 

POINT X TO RAM ADDRESS OF CORRECT LINE NUMBER 

PUT CORRECT LINE NUMBER INTO (X) 

SAVE IT TEMPORARILY 

GO INSERT IT INTO BASIC LINE 

GET BEGINNING OF BASIC PROGRAM 

*GET CURRENT INPUT POINTER 

*AND BUMP IT ONE 

RETURN IF END OF PROGRAM 

SKIP PAST NEXT LINE ADDRESS 

ADVANCE POINTER BY ONE 

SAVE NEW BASIC INPUT POINTER 

GET NEXT CHARACTER FROM BASIC 

CHECK THE CHARACTER 

BRANCH IF END OF LINE 

BRANCH IF NOT A TOKEN 

GET CURRENT INPUT POINTER 

IS THIS A SECONDARY TOKEN? 

YES - IGNORE IT 

HOOK INTO RAM AND CHECK FOR USER ADDED TOKENS 

TOKEN FOR THEN? 

YES 

TOKEN FOR ELSE? 

YES 

TOKEN FOR GO? 

NO 

GET A CHARACTER FROM BASIC 

TOKEN FOR TO? 

YES 

TOKEN FOR SUB? 
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1345 


8B11 


26 


D8 




BNE 


L8AEB 


1346 


8B13 


9D 


9F 


L8B13 


JSR 


GETNCH 


1347 


8B15 


25 


04 




BLO 


L8B1B 


1348 


8B17 


9D 


A5 


L8B17 


JSR 


GETCCH 


1349 


8B19 


20 


D4 




BRA 


L8AEF 


1350 


8B1B 


9E 


A6 


L8B1B 


LDX 


CHARAD 


1351 


8B1D 


34 


10 




PSHS 


X 


1352 


8B1F 


BD 


AF 67 




JSR 


LAF67 


1353 


8B22 


9E 


A6 




LDX 


CHARAD 


1354 


8B24 


A6 


82 


L8B24 


LDA 


,-x 


1355 


8B26 


BD 


90 AA 




JSR 


L90AA 


1356 


8B29 


25 


F9 




BLO 


L8B24 


1357 


8B2B 


30 


01 




LEAX 


$01, X 


1358 


8B2D 


IF 


10 




TFR 


X.D 


1359 


8B2F 


E0 


61 




SUBB 


$01, S 


1368 


8B31 


C0 


05 




SUBB 


#$05 


1361 








* 






1362 


8B33 


27 


20 




BEQ 


L8B55 


1363 


8B35 


25 


0A 




BLO 


L8B41 


1364 


8B37 


33 


84 




LEAU 


,x 


1365 


8B39 


50 






NEGB 




1366 


8B3A 


30 


85 




LEAX 


B,X 


1367 


8B3C 


BD 


89 B8 




JSR 


L89B8 


1368 








* 






1369 


8B3F 


20 


14 




BRA 


L8B55 


137B 








* FORCE 


FIVE 1 


3YTES OF SPACE 


1371 


8B41 


9F 


47 


L8B41 


STX 


V47 


1372 


8B43 


9E 


IB 




LDX 


VARTAB 


1373 


8B45 


9F 


43 




STX 


V43 


1374 


8B47 


50 






NEGB 




1375 


8B48 


30 


85 




LEAX 


B,X 


1376 


8B4A 


9F 


41 




STX 


V41 


1377 


8B4C 


9F 


IB 




STX 


VARTAB 


1378 


8B4E 


BD 


AC IE 




JSR 


LAC IE 


1379 


8B51 


9E 


45 




LDX 


V45 


138B 


8B53 


9F 


A6 




STX 


CHARAD 


1381 


8B55 


35 


10 


L8B55 


PULS 


X 


1382 


8B57 


86 


01 




LDA 


#$01 


1383 


8B59 


A7 


84 




STA 


,x 


1384 


8B5B 


A7 


02 




STA 


$02, X 


1385 


8B5D 


A7 


04 




STA 


$04, X 


1386 


8B5F 


D6 


2B 




LDB 


BINVAL 


1387 


8B61 


26 


04 




BNE 


L8B67 


1388 


8B63 


C6 


01 




LDB 


#$01 


1389 














139B 


8B65 


6C 


02 




INC 


$02, X 


1391 


8B67 


E7 


01 


L8B67 


STB 


$01, X 


1392 


8B69 


D6 


2C 




LDB 


BINVAL+1 


1393 


8B6B 


26 


04 




BNE 


L8B71 


1394 


8B6D 


C6 


01 




LDB 


#$01 


1395 


8B6F 


6C 


04 




INC 


$04, X 


1396 


8B71 


E7 


03 


L8B71 


STB 


$03, X 


1397 


8B73 


9D 


A5 




JSR 


GETCCH 


1398 


8B75 


81 


2C 




CMPA 


#' ,' 


1399 


8B77 


27 


9A 




BEQ 


L8B13 


14BB 


8B79 


20 


9C 




BRA 


L8B17 


1401 


8B7B 


9E 


19 


L8B7B 


LDX 


TXTTAB 


1402 


8B7D 


30 


IF 




LEAX 


$-01, X 


1403 


8B7F 


30 


01 


L8B7F 


LEAX 


$01, X 


1404 


8B81 


EC 


02 




LDD 


$02, X 


1405 


8B83 


DD 


68 




STD 


CURLIN 


1406 


8B85 


BD 


8A 86 




JSR 


L8A86 


1407 


8B88 


30 


03 




LEAX 


$03, X 


1408 


8B8A 


30 


01 


L8B8A 


LEAX 


$01, X 


1409 


8B8C 


A6 


84 


L8B8C 


LDA 


,x 


1410 


8B8E 


27 


EF 




BEO 


L8B7F 


1411 


8B90 


4A 






DECA 




1412 


8B91 


27 


IB 




BEQ 


L8BAE 


1413 


8B93 


80 


02 




SUBA 


#$02 


1414 


8B95 


26 


F3 




BNE 


L8B8A 


1415 


8B97 


34 


10 




PSHS 


X 


1416 


8B99 


8E 


8B D8 




LDX 


#L8BD9-1 


1417 


8B9C 


BD 


B9 9C 




JSR 


STRINOUT 


1418 


8B9F 


AE 


E4 




LDX 


,s 


1419 


8BA1 


EC 


01 




LDD 


$01, X 


1420 


8BA3 


BD 


BD CC 




JSR 


LBDCC 


1421 


8BA6 


BD 


BD C5 




JSR 


LBDC5 


1422 


8BA9 


BD 


B9 58 




JSR 


LB958 


1423 


8BAC 


35 


10 




PULS 


X 


1424 


8BAE 


34 


10 


L8BAE 


PSHS 


X 


1425 


8BB0 


EC 


01 




LDD 


$01, X 


1426 


8BB2 


DD 


52 




STD 


FPA0+2 


1427 


8BB4 


BD 


88 0E 




JSR 


L880E 


1428 


8BB7 


BD 


BD D9 




JSR 


LBDD9 


1429 


8BBA 


35 


40 




PULS 


U 


1430 


8BBC 


C6 


05 




LDB 


#$05 


1431 


8BBE 


30 


01 


L8BBE 


LEAX 


$01, X 


1432 


8BC0 


A6 


84 




LDA 


,x 


1433 


8BC2 


27 


05 




BEQ 


L8BC9 


1434 


8BC4 


5A 






DECB 




1435 


8BC5 


A7 


C0 




STA 


,u+ 


1436 


8BC7 


20 


F5 




BRA 


L8BBE 


1437 


8BC9 


30 


C4 


L8BC9 


LEAX 


,u 


1438 


8BCB 


5D 






TSTB 




1439 


8BCC 


27 


BE 




BEO 


L8B8C 


1440 


8BCE 


31 


C4 




LEAY 


,u 



NO 

GET A CHARACTER FROM BASIC 

BRANCH IF NUMERIC 

GET CURRENT BASIC INPUT CHARRACTER 

KEEP CHECKING THE LINE 

GET CURRENT INPUT ADDRESS 

SAVE IT ON THE STACK 

CONVERT DECIMAL BASIC NUMBER TO BINARY 

GET CURRENT INPUT POINTER 

GET PREVIOUS INPUT CHARACTER 

CLEAR CARRY IF NUMERIC INPUT VALUE 

BRANCH IF NON-NUMERIC 

MOVE POINTER UP ONE 

NOW ACCD POINTS TO ONE PAST END OF LINE NUMBER 

SUBTRACT PRE-NUMERIC POINTER LS BYTE 

MAKE SURE THERE ARE AT LEAST 5 CHARACTERS IN THE NUMERIC LINE 

BRANCH IF EXACTLY 5 

BRANCH IF < 5 

TRANSFER X TO U 

NEGATE B 

MOVE X BACK B BYTES 

*MOVE BYTES FROM (U) TO (X) UNTIL 

*U = END OF BASIC; (I) = NEW END OF BASIC 



FOR THE LINE NUMBER 



SAVE END OF NUMERIC VALUE 

GET END OF BASIC PROGRAM 

SAVE IT 

NEGATE B 

ADD IT TO END OF NUMERIC POINTER 

SAVE POINTER 

STORE END OF BASIC PROGRAM 

ACCD = TOP OF ARRAYS - CHECK FOR ENOUGH ROOM 

* GET AND SAVE THE 

* NEW CURRENT INPUT POINTER 

RESTORE POINTER TO START OF NUMERIC VALUE 
NEW LINE NUMBER FLAG 

* SAVE NEW LINE FLAG 



GET MS BYTE OF BINARY LINE NUMBER 

BRANCH IF IT IS NOT ZERO 

SAVE A 1 IF BYTE IS 0; OTHERWISE, BASIC WILL 

THINK IT IS THE END OF A LINE 

IF 2,X = 2, THEN PREVIOUS BYTE WAS A ZERO 

SAVE MS BYTE OF BINARY LINE NUMBER 

GET IS BYTE OF BINARY LINE NUMBER 

BRANCH IF NOT A ZERO BYTE 

SAVE A 1 IF BYTE IS A 

IF 4,X = 2, THEN PREVIOUS BYTE WAS A 

SAVE LS BYTE OF BINARY LINE NUMBER 

GET CURRENT INPUT CHARACTER 

IS IT A COMMA? 

YES - PROCESS ANOTHER NUMERIC VALUE 

NO - GO GET AND PROCESS AN INPUT CHARACTER 

POINT X TO START OF BASIC PROGRAM 

MOVE POINTER BACK ONE 

MOVE POINTER UP ONE 

GET ADDRESS OF NEXT LINE 

SAVE IT IN CURLIN 

RETURN IF END OF PROGRAM 

SKIP OVER ADDRESS OF NEXT LINE AND 1ST BYTE OF LINE NUMBER 

MOVE POINTER UP ONE 

GET CURRENT CHARACTER 

BRANCH IF END OF LINE 

INPUT CHARACTER = 1? - VALID LINE NUMBER 

YES 

INPUT CHARACTER 3? - UL LINE NUMBER 

NO 

SAVE CURRENT POSITION OF INPUT POINTER 

POINT X TO UL MESSAGE 

PRINT STRING TO THE SCREEN 

GET INPUT POINTER 

GET THE UNDEFINED LINE NUMBER 

CONVERT NUMBER IN ACCD TO DECIMAL AND DISPLAY IT 

PRINT IN XXXX XXXX = CURRENT LINE NUMBER 

SEND A CR TO CONSOLE OUT 

GET INPUT POINTER BACK 

SAVE CURRENT POSITION OF INPUT POINTER 

LOAD ACCD WITH BINARY VALUE OF LINE NUMBER 

SAVE IN BOTTOM 2 BYTES OF FPA0 

ADJUST REST OF FPA0 AS AN INTEGER 

CONVERT FPA0 TO ASCII, STORE IN LINE NUMBER 

LOAD U WITH PREVIOUS ADDRESS OF INPUT POINTER 

EACH EXPANDED LINE NUMBER USES 5 BYTES 

MOVE POINTER FORWARD ONE 

GET AN ASCII BYTE 

BRANCH IF END OF NUMBER 

DECREMENT BYTE COUNTER 

STORE ASCII NUMBER IN BASIC LINE 

CHECK FOR ANOTHER DIGIT 

TRANSFER NEW LINE POINTER TO (X) 

DOES THE NEW LINE NUMBER REQUIRE 5 BYTES? 

YES - GO GET ANOTHER INPUT CHARACTER 

SAVE NEW LINE POINTER IN Y 
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1441 


8BD0 


33 


C5 




1442 


8BD2 


BD 


89 


B8 


1443 


8BD5 


30 


A4 




1444 


8BD7 


20 


B3 




1445 










1446 


8BD9 


55 


4C 




1447 


8BDC 


00 






1448 










1449 










145EI 


8BDD 


BD 


B7 


40 


1451 


8BE0 


8E 


03 


D9 


1452 


8BE3 


C6 


04 




1453 


8BE5 


34 


04 




1454 


8BE7 


5F 






1455 


8BE8 


86 


04 




1456 


8BEA 


08 


53 




1457 


8BEC 


09 


52 




1458 


8BEE 


59 






1459 


8BEF 


4A 






1460 


8BF0 


26 


F8 




1461 


8BF2 


5D 






1462 


8BF3 


26 


0A 




1463 


8BF5 


A6 


E4 




1464 


8BF7 


4A 






1465 


8BF8 


27 


05 




1466 


8BFA 


8C 


03 


D9 


1467 


8BFD 


27 


0C 




1468 


8BFF 


CB 


30 




1469 


8C01 


CI 


39 




1470 


8C03 


23 


02 




1471 


8C05 


CB 


07 




1472 


8C07 


E7 


80 




1473 


8C09 


6F 


84 




1474 


8C0B 


35 


04 




1475 


8C0D 


5A 






1476 


8C0E 


26 


D5 




1477 


8C10 


32 


62 




1478 


8C12 


8E 


03 


D8 


1479 


8C15 


7E 


B5 


18 


1480 










1481 










1482 


8C18 


BD 


A4 


29 


1483 


8C1B 


9D 


A5 




1484 


8C1D 


80 


4D 




1485 


8C1F 


34 


02 




1486 


8C21 


26 


02 




1487 


8C23 


9D 


9F 




1488 


8C25 


BD 


A5 


78 


1489 


8C28 


9D 


A5 




1490 


8C2A 


27 


18 




1491 


8C2C 


BD 


B2 


6D 


1492 


8C2F 


81 


2C 




1493 


8C31 


27 


11 




1494 










1495 


8C33 


BD 


B7 


0B 


1496 


8C36 


86 


B0 




1497 


8C38 


5D 






1498 


8C39 


27 


07 




1499 


8C3B 


86 


2C 




1500 


8C3D 


5A 






1501 


8C3E 


10 


26 


28 08 


1502 


8C42 


97 


E6 




1503 


8C44 


BD 


8C 


D0 


1504 


8C47 


34 


02 




1505 


8C49 


86 


FD 




1506 


8C4B 


97 


6F 




1507 


8C4D 


35 


02 




1508 


8C4F 


6D 


E0 




1509 


8C51 


27 


32 




1510 










1511 










1512 


8C53 


BD 


A5 


C7 


1513 


8C56 


5D 






1514 


8C57 


27 


06 




1515 


8C59 


BD 


AD 


19 


1516 


8C5C 


7E 


AC 


7C 


1517 










1518 


8C5F 


7E 


A6 


16 


1519 










1520 










1521 


8C62 


9D 


9F 




1522 


8C64 


81 


4D 




1523 


8C66 


10 


26 


18 2E 


1524 


8C6A 


0F 


78 




1525 


8C6C 


9D 


9F 




1526 


8C6E 


BD 


A5 


78 


1527 


8C71 


BD 


A6 


48 


1528 


8C74 


7D 


01 


E4 


1529 


8C77 


10 


27 


18 8A 


1530 


8C7B 


FE 


01 


E2 


1531 


8C7E 


0A 


6F 




1532 


8C80 


BD 


A6 


35 


1533 


8C83 


IF 


30 




1534 










1535 










1536 













LEAU 


B,U 




JSR 


LB9B8 




LEAX 


,Y 




BRA 


L8B8C 


L8BD9 


FCC 


'UL • 




FCB 





* CONVERT AN 


INTEGER INTQ AN 


HEXDOL 


JSR 


LB740 




LDX 


#STRBUF+2 




LDB 


#$04 


L8BE5 


PSHS 
CLRB 


B 




LDA 


#$04 


L8BEA 


ASL 


FPA0+3 




ROL 


FPA0+2 




ROLB 






DECA 






BNE 


L8BEA 




TSTB 






BNE 


L8BFF 




LDA 


,S 




DECA 






BED 


L8BFF 




CMPX 


#STRBUF+2 




BEQ 


L8C0B 


L8BFF 


ADDB 


#'0' 




CMPB 


#'9' 




BLS 


L8C07 




ADDB 


#'A'-('9'+l) 


L8C07 


STB 


,x+ 




CLR 


,x 


L8C0B 


PULS 
DECB 


B 




BNE 


L8BE5 




LEAS 


$02, S 




LDX 


#STRBUF+1 




JMP 


LB518 


* DLOAD 






DLOAD 


JSR 


LA429 


L8C1B 


JSR 


GETCCH 




SUBA 


#'M' 




PSHS 


A 




BNE 


L8C25 




JSR 


GETNCH 


L8C25 


JSR 


LA578 




JSR 


GETCCH 




BEQ 


L8C44 




JSR 


SYNCOMMA 




CMPA 


#' ,' 




BEQ 


L8C44 




JSR 


EVALEXPB 




LDA 


#44*4 




TSTB 






BEQ 


L8C42 




LDA 


#44 




DECB 






LBNE 


LB44A 


L8C42 


STA 


DLBAUD 


L8C44 


JSR 


L8CD0 




PSHS 


A 




LDA 


#-3 




STA 


DEVNUM 




PULS 


A 




TST 


,s+ 




BEQ 


L8C85 


* READ 


IN A DLQAD FILE 




JSR 


LA5C7 




TSTB 






BEQ 


L8C5F 




JSR 


LAD19 




JMP 


LAC7C 



L8C5F JMP LA616 

* EXBAS CLOAD PROCESSOR 
L8C62 JSR GETNCH 

CMPA #'M' 

LBNE LA498 

CLR 

JSR 

JSR 

JSR 

TST 



FILSTA 

GETNCH 

LA578 

LA648 

CASBUF+10 
LBEQ LA505 
LDU CASBUF+8 
DEC DEVNUM 
JSR LA635 
TFR U,D 



POINT U TO END OF 5 BYTE PACKED LINE NUMBER BLOCK 
MOVE BYTES FROM (U) TO (X) UNTIL END OF PROGRAM 
LOAD (X) WITH NEW LINE POINTER 
GO GET ANOTHER INPUT CHARACTER 

UNKNOWN LINE NUMBER MESSAGE 



ASCII STRING AND PRINT IT ON THE SCREEN 

CONVERT FPA0 INTO A POSITIVE 2 BYTE INTEGER 

POINT TO TEMPORARY BUFFER 

CONVERT 4 NIBBLES 

SAVE NIBBLE COUNTER 

CLEAR CARRY FLAG 

4 SHIFTS 

* SHIFT BOTTOM TWO BYTES OF 

* FPA0 LEFT ONE BIT (X2) 
IF OVERFLOW, ACCB <> 

* DECREMENT SHIFT COUNTER AND 

* BRANCH IF NOT DONE 
CHECK FOR OVERFLOW 
BRANCH IF OVERFLOW 

* GET NIBBLE COUNTER, 

* DECREMENT IT AND 

* BRANCH IF DONE 

= DO NOT DO A CONVERSION UNTIL A NON-ZERO 

= BYTE IS FOUND - LEADING ZERO SUPPRESSION 

ADD IN ASCII ZERO 

COMPARE TO ASCII 9 

BRANCH IF < 9 

ADD ASCII OFFSET IF HEX LETTER 

STORE HEX VALUE AND ADVANCE POINTER 

CLEAR NEXT BYTE - END OF STRING FLAG 

* GET NIBBLE COUNTER, 

* DECREMENT IT AND 

* BRANCH IF NOT DONE 

PURGE RETURN ADDRESS OFF OF STACK 

RESET POINTER 

SAVE STRING ON STRING STACK 



CLOSE FILES 

GET THE CURRENT INPUT CHARACTER 

CHECK FOR DLOADM 

SAVE DLOADM (=0), OLOAD (<>0) FLAG 

BRANCH IF OLOAD 

GET AN INPUT CHAR FROM BASIC 

GET THE NAME OF FILE FROM BASIC 

GET CURRENT INPUT CHAR FROM BASIC 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

CHECK FOR TWO CONSECUTIVE COMMAS 

♦BRANCH IF,, - IF THIS CASE IS SELECTED 

*THE BAUD DELAY MUST HAVE BEEN PREVIOUSLY STORED IN DIBAUD 

EVAL EXPR, RETURN VALUE IN ACCB 

DELAY VALUE FOR 300 BAUD 

WAS ARGUMENT = 0? 

YES - 300 BAUD 

DELAY VALUE FOR 1200 BAUD 

CHECK FOR ARGUMENT OF 1 

FC ERROR IF NOT ZERO OR ONE OR COMMA 
SAVE DELAY VALUE 

TRANSMIT FILE NAME AND READ IN FILE STATUS 
SAVE ACCA 

DLOAD DEVICE NUMBER TO -3 
SET DEVICE NUMBER TO DLOAD 
RESTORE ACCA 
DLOAD OR DLOADM? 
DLOADM 



CHECK FOR END OF LINE - SYNTAX ERROR IF NOT 
CHECK ASCII FLAG 

FM ERROR IF NOT ASCII 
GO DO A NEW 

*JUMP BACK TO BASIC S MAIN INPUT LOOP; 
*DLOAD FILES MUST BE ASCII FILES 

BAD FILE MODE ERROR 



GET A CHAR FROM BASIC 

CHECK FOR CLOADM 

GO DO A CLOAD 

CLOSE FILES 

GET A CHAR FROM BASIC 

STRIP A FILENAME OFF OF THE BASIC LINE 

SEARCH FOR FILE 

CHECK FILE MODE 

BRANCH TO CLOADM IF NOT BLOCK LOAD 

SAVE FILE TYPE AND ASCII FLAG IN U 

SET DEVICE NUMBER TO -1 (CASSETTE) 

GO READ IN A DATA BLOCK 

PUT FILE TYPE & ASCII FLAG BACK IN ACCD 



* STRIP A LOAD OFFSET FROM THE BASIC LINE, THEN LOAD IN BLOCKS OF 

* DATA (CLOADM, DLOADM) WHICH ARE PRECEEDED BY A 5 BYTE PRE OR POST- 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF EXTENDED BASIC 1.1 



ORIGINlSPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



1537 










1538 










1539 










1540 


8C85 


83 


02 


00 


1541 


8C88 


26 


D5 




1542 


8C8A 


9E 


8A 




1543 


8C8C 


9D 


A5 




1544 


8C8E 


27 


06 




1545 


8C90 


BD 


B2 


6D 


1546 


8C93 


BD 


B7 


3D 


1547 


8C96 


9F 


D3 




1548 


8C98 


BD 


A5 


C7 


1549 


8C9B 


8D 


29 




155B 


8C9D 


34 


02 




1551 


8C9F 


8D 


IE 




1552 


8CA1 


IF 


02 




1553 


8CA3 


8D 


lA 




1554 


8CA5 


D3 


D3 




1555 


8CA7 


DD 


9D 




1556 


8CA9 


IF 


01 




1557 


8CAB 


A6 


E0 




1558 


8CAD 


10 


26 


17 7C 


1559 


8CB1 


8D 


13 




1560 


8CB3 


A7 


84 




1561 


8CB5 


Al 


80 




1562 


8CB7 


26 


14 




1563 


8CB9 


31 


3F 




1564 


8CBB 


26 


F4 




1565 


8CBD 


20 


DC 




1566 










1567 


8CBF 


8D 


00 




1568 


8CC1 


8D 


03 




1569 


8CC3 


IE 


89 




1570 


8CC5 


39 






1571 










1572 


8CC6 


BD 


Al 


76 


1573 


8CC9 


0D 


70 




1574 


8CCB 


27 


F8 




1575 


8CCD 


7E 


A6 


19 


1576 


8CD0 


8D 


42 




1577 


8CD2 


34 


06 




1578 


8CD4 


4C 






1579 


8CD5 


27 


06 




1580 


8CD7 


DE 


8A 




1581 


8CD9 


8D 


09 




1582 


8CDB 


35 


86 




1583 


8CDD 


C6 


34 




1584 


8CDF 


7E 


AC 


46 


1585 










1586 


8CE2 


DE 


7E 




1587 


8CE4 


30 


41 




1588 


8CE6 


9F 


7E 




1589 


8CE8 


8E 


01 


DA 


1590 


8CEB 


BD 


8D 


7C 


1591 


8CEE 


7E 


A6 


44 


1592 










1593 










1594 


8CF1 


96 


6F 




1595 


8CF3 


81 


FD 




1596 


8CF5 


26 


0A 




1597 


8CF7 


32 


62 




1598 


8CF9 


0F 


70 




1599 


8CFB 


0D 


79 




1600 


8CFD 


26 


03 




1601 


8CFF 


03 


70 




1602 


8D01 


39 






1603 


8D02 


34 


74 




1604 


8D04 


9E 


7A 




1605 


8D06 


A6 


80 




1606 


8D08 


34 


02 




1607 


8D0A 


9F 


7A 




1608 


8D0C 


0A 


79 




1609 


8D0E 


26 


02 




1610 


8D10 


8D 


D0 




1611 


8D12 


35 


F6 




1612 










1613 


8D14 


4F 






1614 


8D15 


34 


16 




1615 


8D17 


31 


E4 




1616 


8D19 


20 


02 




1617 


8D1B 


8D 


2B 




1618 


8D1D 


86 


8A 




1619 


8D1F 


8D 


37 




1620 


8D21 


26 


F8 




1621 


8D23 


8E 


01 


D2 


1622 


8D26 


A6 


80 




1623 


8D28 


BD 


8E 


04 


1624 


8D2B 


8C 


01 


DA 


1625 


8D2E 


26 


F6 




1626 


8D30 


8D 


30 




1627 


8D32 


26 


E7 




1628 


8D34 


8D 


3C 




1629 


8D36 


26 


E3 




1630 


8D38 


A7 


22 




1631 


8D3A 


8D 


36 




1632 


8D3C 


26 


DD 





$ AMBLE 

* THAT 

* AMBLE 
L8C85 



L8C96 
L8C9B 



THE PREAMBLE CONTAINS A BLOCK LENGTH AND A LOAD ADDRESS SO 
ANY NUMBER OF NON-CONTIGUOUS BLOCKS MAY BE LOADED. THE POST- 
WILL TERMINATE THE LOADING PROCESS AND PROVIDE A TRANSFER ADDRESS 



SUED 

BNE 

LDX 

JSR 

BEO 

JSR 

JSR 

STX 

JSR 

BSR 

PSHS 

BSR 

TFR 

BSR 

ADDD 

STD 

TFR 

LDA 

LBNE 

BSR 

STA 

CMPA 

BNE 

LEAY 

BNE 

BRA 



#$200 

L8C5F 

ZERO 

GETCCH 

L8C96 

SYNCOMMA 

LB73D 

VD3 

LA5C7 

L8CC6 

A 

L8CBF 

D,Y 

L8CBF 

VD3 

EXECJP 

D,X 

,S+ 

LA42D 

L8CC6 

,X 

,X-^ 

L8CCD 

$-01, Y 

L8CB1 

L8C9B 



* GET 2 

L8CBF 

L8CC1 



L8CCD 
L8CD0 



CHARACTERS - 
BSR L8CC1 
BSR L8CC6 
EXG A.B 
RTS 



RETURN THEM IN ACCD 



JSR 

TST 

BEO 

JMP 

BSR 

PSHS 

INCA 

BEO 

LDU 

BSR 

PULS 

LDB 

JMP 



LA176 

CINBFL 

L8CC5 

LA619 

L8D14 

B,A 



L8CDD 
ZERO 
L8CE4 
A,B,PC 
#2*26 
LAC46 

* REFILL CONSOLE IN CHARACTER 
L8CE2 LDU CBUFAD 

L8CE4 LEAX $01, U 

STX CBUFAD 
LDX #CASBUF 
JSR L8D7C 
JMP LA644 



* CHECK FILE STATUS; 

* FM ERROR IF MODE <> 2 OR TYPE <> 
ZERO THE X REG - DEFAULT OFFSET 

GET CURRENT INPUT CHARACTER 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

EVAL INTEGER EXPR - RETURN VALUE IN X 

SAVE OFFSET 

SYNTAX ERROR IF MORE CHARS ON LINE 

GO GET EOF FLAG FROM CONSOLE IN 

SAVE IT ON THE STACK 

* READ IN BLOCK LENGTH FROM CONSOLE IN 

* AND SAVE IT IN Y 

GET LOAD ADDRESS FROM CONSOLE IN 

ADD OFFSET TO LOAD ADDRESS 

SAVE IN EXEC ADDRESS 

SAVE LOAD ADDRESS IN X 

GET EOF FLAG FROM STACK 

CLOSE FILES IF POSTAMBLE BLOCK 

GET A CHARACTER FROM CONSOLE IN 

SAVE IT IN RAM 

COMPARE SAVED BYTE TO ACTUAL BYTE 

'10 ERROR IF NOT = (SAVED IN ROM OR BAD RAM) 

DECREMENT BYTE COUNT 

READ MORE CHARACTERS 

LOOK FOR ANOTHER BLOCK OF DATA 

GET A CHARACTER IN ACCB 
GET A CHARACTER IN ACCA 
SAVE IT IN ACCB 



GET A CHARACTER FROM CONSOLE IN 
IS FILE EMPTY? 
RETURN IF NOT EMPTY 

10 ERROR IF EMPTY 
TRANSMIT FILE NAME, RETURN FILE STATUS 
SAVE FILE STATUS ON STACK 
CHECK FILE TYPE 

NE ERROR IF FILE NOT FOUND 
ZERO U REG : FIRST BLOCK NUMBER 
READ IN 128 CHARACTERS 
GET FILE STATUS BACK AND RETURN 

NE ERROR 
GO TO ERROR SERVICING ROUTINE 



BUFFER FROM DLOAD 



GET BLOCK NUMBER 

* INCREMENT BLOCK NUMBER 

* AND SAVE IT 

USE CASBUF AS DLOAD INPUT BUFFER 

READ 128 CHARACTERS (ONE BLOCK) INTO BUFFER 

RESET CONSOLE IN BUFFER 



L8D01 
L8D02 



* CONSOLE IN 
XVEC4 LDA 
CMPA 
BNE 
LEAS 
CLR 
TST 
BNE 
COM 
RTS 
PSHS 
LDX 
LDA 
PSHS 
STX 
DEC 
BNE 
BSR 
8D12 PULS 
TRANSMIT FI 



L8D1B 
L8D1D 



RAM HOOK 

DEVNUM GET DEVICE NUMBER 

#-3 DLOAD DEVICE NUMBER 

L8D01 BRANCH IF NOT OLOAD 

$02, S PURGE 1ST RETURN ADDR FROM STACK 

CINBFL RESET EMPTY/FULL FLAG 

CINCTR ANY CHARACTERS LEFT IN BUFFER? 

L8D02 YES, GO GET ONE 

CINBFL SET EMPTY/FULL FLAG TO EOF 

U,Y,X,B SAVE REGISTERS 

CINPTR GET CONSOLE IN CHARACTER BUFFER 

,X+ GET A CHARACTER 

A SAVE IT ON THE STACK 

CINPTR SAVE NEW CHARACTER BUFFER 

CINCTR DECREMENT CHARACTER COUNTER 

L8D12 RETURN IF BUFFER NOT EMPTY 

L8CE2 GO REFILL THE CHARACTER BUFFER 

A,B,X,Y,U,PC RESTORE REGISTERS AND RETURN 
LE NAME - READ FILE STATUS FROM SENDER 

CLRA RESET ATTEMPT COUNTER 

PSHS X,B,A SAVE SPACE ON STACK FOR TEMP VARIABLES 

LEAY ,S STACK TO Y (TFR S,Y) - SAVE VARIABLE POINTER 
BRA L8D1D 

BSR L8D48 INCREMENT ATTEMPT COUNTER 

LDA #$8A * GET FILE REOUEST CONTROL CODE 

BSR L8D58 * AND TRANSMIT IT 

BNE L8D1B BRANCH IF NO ECHO OR ERROR 

LDX #CFNBUF+1 POINT TO CASS FILE NAME BUFFER 

LDA ,X+ GET CHARACTER FROM NAME BUFFER 

JSR L8E04 OUTPUT IT TO RS 232 PORT 

CMPX #CFNBUF+9 COMPARE TO END OF BUFFER 

BNE L8D26 LOOP UNTIL DONE 

BSR L8D62 OUTPUT CHECK BYTE AND LOOK FOR ACKNOWLEDGE 

BNE L8D1B TRANSMIT NAME AGAIN IF NO ACKNOWLEDGE 

BSR L8D72 GET FILE TYPE $FF = NOT FOUND 

BNE L8D1B BRANCH IF ERROR 

STA $02, Y SAVE FILE TYPE 

BSR L8D72 READ ASCII FLAG 

BNE L8D1B BRANCH IF ERROR 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF EXTENDED BASIC 1.1 



ORIGINlSPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



1633 


8D3E 


A7 


23 


1634 


8D40 


8D 


29 


1635 


8D42 


26 


D7 


1636 


8D44 


32 


62 


1637 


8D46 


35 


86 


1638 








1639 


8D48 


6C 


A4 


1648 


8D4A 


A6 


A4 


1641 


8D4C 


81 


05 


1642 


8D4E 


25 


lA 


1643 


8D50 


86 


BC 


1644 


8D52 


BD 


8E 0C 


1645 


8D55 


7E 


A6 19 


1646 








1647 








1648 


8D58 


34 


02 


1649 


8D5A 


8D 


5C 


1650 


8D5C 


26 


02 


1651 


8D5E 


Al 


E4 


1652 


8D60 


35 


82 


1653 








1654 








1655 


8D62 


A6 


21 


1656 


8D64 


8D 


52 


1657 


8D66 


26 


02 


1658 


8D68 


81 


C8 


1659 


8D6A 


39 




166B 








1661 








1662 


8D6B 


8D 


05 


1663 


8D6D 


26 


FB 


1664 


8D6F 


A6 


21 


1665 


8D71 


39 




1666 


8D72 


8D 


48 


1667 


8D74 


34 


03 


1668 


8D76 


A8 


21 


1669 


8D78 


A7 


21 


1670 


8D7A 


35 


83 


1671 








1672 








1673 








1674 








1675 


8D7C 


4F 




1676 


8D7D 


34 


76 


1677 


8D7F 


68 


67 


1678 


8D81 


69 


66 


1679 


8D83 


64 


67 


168B 


8D85 


31 


E4 


1681 


8D87 


20 


02 


1682 


8D89 


8D 


BD 


1683 


8D8B 


86 


97 


1684 


8D8D 


8D 


C9 


1685 


8D8F 


26 


F8 


1686 


8D91 


A6 


26 


1687 


8D93 


8D 


6F 


1688 


8D95 


A6 


27 


1689 


8D97 


8D 


6B 


1690 


8D99 


8D 


C7 


1691 


8D9B 


26 


EC 


1692 


8D9D 


8D 


D3 


1693 


8D9F 


26 


E8 


1694 


8DA1 


A7 


24 


1695 


8DA3 


AE 


22 


1696 








1697 








1698 


8DA5 


C6 


80 


1699 


8DA7 


8D 


C9 


1700 


8DA9 


26 


DE 


1701 


8DAB 


A7 


80 


1702 


8DAD 


5A 




1703 


8DAE 


26 


F7 


1704 


8DB0 


8D 


B9 


1705 


8DB2 


26 


D5 


1706 


8DB4 


32 


64 


1707 


8DB6 


35 


96 


1708 


8DB8 


6F 


21 


1709 


8DBA 


8D 


50 


1710 








1711 








1712 








1713 


8DBC 


4F 




1714 


8DBD 


34 


15 


1715 


8DBF 


lA 


50 


1716 


8DC1 


96 


E7 


1717 


8DC3 


9E 


8A 


1718 


8DC5 


8D 


IF 


1719 


8DC7 


24 


FC 


1720 


8DC9 


8D 


IB 


1721 


8DCB 


25 


FC 


1722 


8DCD 


8D 


2A 


1723 


8DCF 


C6 


01 


1724 


8DD1 


34 


04 


1725 


8DD3 


4F 




1726 


8DD4 


8D 


21 


1727 


8DD6 


F6 


FF 22 


1728 


8DD9 


56 





STA 

BSR 

BNE 

LEAS 

PULS 



$03, Y 
L8D6B 
L8D1B 
$02, S 
A,B,PC 



* INCREMENT ATTEMPT COUNTER 
L8D48 INC ,Y 



LDA 
CMPA 
BLO 
LDA 
JSR 
JMP 
ECHO CHECK 



#$05 
L8D6A 
#$BC 
L8E0C 
LA619 
OUTPUT A CHARACTER 



SAVE ASCII FLAG 
READ CHECK BYTE FROM SENDER 
BRANCH IF NO CHECKBYTE MATCH 

PURGE ATTEMPT COUNTER S CHECK BYTE FROM STACK 
RETURN FILE STATUS IN ACCD 
AFTER 5 TRIES, GIVE UP (10 ERROR) 

INCREMENT ATTEMPT COUNTER 
GET ATTEMPT COUNTER 
IS THIS THE FIFTH TRY? 
NO 

YES ; TIME TO OUIT-GET ABORT CODE 
OUTPUT ABORT CODE OVER THE RS 232 PORT 
10 ERROR 
READ A CHARACTER AND 



COMPARE IT TO THE OUTPUT CHARACTER. Z=0 IF 



PSHS 

BSR 

BNE 

CMPA 

PULS 



A 

L8DB8 
L8D60 
,S 
A, PC 



NO MATCH OR ERROR 

SAVE COMPARE CHARACTER ON STACK 

SEND A CHARACTER OUT 

BRANCH IF READ ERROR 

COMPARE RECEIVED CHARACTER TO TRANSMITTED CHARACTER 

RESTORE COMPARE CHARACTER AND RETURN 



TRANSMIT XOR CHECKBYTE AND READ ACKNOWLEGE ($C8) 
RETURN ZERO FLAG SET IF NO ERROR AND ACKNOWLEGE 



LDA 

BSR 

BNE 

CMPA 

RTS 



$01, Y 
L8DB8 
L8D6A 
#$C8 



GET XOR CHECKBYTE 

OUTPUT XOR CHECKBYTE AND READ ONE BYTE 

BRANCH IF READ ERROR 

COMPARE INPUT BYTE TO ACKNOWLEDGE CODE 



READ XOR CHECKBYTE THEN LOAD ACCUMULATED XOR CHECKBYTE. 
SET ZERO FLAG IF ACCUMULATED CHECK BYTE = 



8D6B BSR 
BNE 
LDA 
RTS 

8D72 BSR 
PSHS 
EORA 
STA 
PULS 
REOUEST A B 



L8D72 
L8D6A 
$01, Y 

L8DBC 
A,CC 
$01, Y 
$01, Y 
CC,A,PC 
LOCK FROM RS 232 INPUT 



INPUT A CHARACTER FROM RS 232 
BRANCH IF TIMEOUT 
GET CHECK BYTE 

INPUT A CHARACTER FROM RS 232 

SAVE CHARACTER AND ZERO FLAG ON STACK 

* EXCLUSIVE OR INPUT 

* CHARACTER WITH CHECK BYTE 
RESTORE CHARACTER AND ZERO FLAG 



LOAD THE RECEIVED DATA INTO THE BUFFER POINTED TO BY X 
U REGFISTER CONTAINS THE BLOCK NUMBER; RETURN Z=l IF NO 
ERRORS, CHARACTER COUNT IN ACCA; ACCA = IF FILE EMPTY 



L8D7C 


CLRA 






PSHS 


U,Y,X,B,A 




ASL 


$07, S 




ROL 


$06, S 




LSR 


$07, S 




LEAY 


,s 




BRA 


L8D8B 


L8D89 


BSR 


L8D48 


L8D8B 


LDA 


#$97 




BSR 


L8D58 




BNE 


L8D89 




LDA 


$06, Y 




BSR 


L8E04 




LDA 


$07, Y 




BSR 


L8E04 




BSR 


L8D62 




BNE 


L8D89 




BSR 


L8D72 




BNE 


L8D89 




STA 


$04, Y 




LDX 


$02, Y 


* READ 


IN A BLOCK OF 128 CHARACTERS 


* CHARACTERS 


REGARDLESS OF HOW MANY 




LDB 


#128 


L8DA7 


BSR 


L8D72 




BNE 


L8D89 




STA 


,x+ 




DECB 






BNE 


L8DA7 




BSR 


LBD6B 




BNE 


L8D89 




LEAS 


$04, S 




PULS 


A,B,X,PC 


L8DB8 


CLR 


$01, Y 




BSR 


L8E0C 



RESET ATTEMPT COUNTER 

SAVE SPACE FOR STACK BUFFER 

* 6,7 S (U REG) CONTAIN THE 14 BIT BLOCK NUMBER - 

* PUT THE BOTTOM 7 BITS IN 7,S AND THE 

* TOP SEVEN BITS IN 6,S 
STACK POINTER TO Y (TFR S,Y) 

INCREMENT ATTEMPT COUNTER 

* TRANSMIT A BLOCK REOUEST CODE, ECHO 

* CHECK AND RESET CHECK BYTE 
BRANCH IF NO MATCH OR ERROR 

* SEND OUT HIGH ORDER SEVEN BITS 

* OF BLOCK NUMBER 

= SEND OUT LOW ORDER SEVEN BITS 
= OF BLOCK NUMBER 

TRANSMIT CHECK BYTE AND GET ACKNOWLEDGE 
BRANCH IF ERROR OR NO ACKNOWLEDGE 
READ CHARACTER COUNT 
BRANCH IF READ ERROR 

SAVE CHARACTER COUNT IN STACK VARIABLES 
GET VARIABLES POINTER FROM STACK BUFFER 
THE HOST WILL TRANSMIT 128 
RE VALID. OF HOW MANY ARE VALID. 
128 CHARACTERS/BUFFER 
READ A CHARACTER 
RESTART PROCESS IF READ ERROR 
SAVE THE CHARACTER IN BUFFER 
DECREMENT CHARACTER COUNTER 
BRANCH IF NOT DONE 
INPUT XOR CHECKBYTE 

RESTART PROCESS IF READ ERROR OR BAD CHECKBYTE 
PURGE ATTEMPT COUNTER, CHECK BYTE AND LOAD ADDRESS FROM STACK 
RETURN CHARACTER COUNT IN ACCA 
CLEAR CHECK BYTE 
OUTPUT A CHARACTER OVER RS 232 PORT 



$ READ A CHARACTER FROM THE RS 232 INPUT PORT. 

* RETURN CHARACTER IN ACCA. EXIT WITH Z=0 

* FOR TIMEOUT ERROR, Z = 1 FOR VALID BYTE INPUT. 



CLRA 




PSHS 


X,B,CC 


ORCC 


#$50 


LDA 


TIMOUT 


LDX 


ZERO 


BSR 


L8DE6 


BCC 


L8DC5 


BSR 


L8DE6 


BLO 


L8DC9 


BSR 


L8DF9 


LDB 


#$01 


PSHS 


B 


CLRA 




BSR 


L8DF7 


LDB 


PIAl+2 


RORB 





CLEAR ATTEMPT COUNTER 

SAVE REGISTERS AND INTERRUPT STATUS 

DISABLE INTERRUPTS 

GET TIMEOUT VARIABLE DELAY 

X=0: TIMEOUT CONSTANT DELAY 

GO GET RS 232 STATUS 

LOOP IF SPACING 

GET RS 232 STATUS 

LOOP IF MARKING 

DELAY 1/2 BIT TIME 

* GET BIT SHIFT COUNTER AND BIT 

* MASK AND SAVE IT ON STACK 
RESET DATA BYTE 

GO DELAY ONE BIT TIME 

* RS 232 INPUT TO 

* CARRY FLAG 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF EXTENDED BASIC 1.1 



ORIGINlSPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



1729 


8DDA 


24 


82 




173EI 


8DDC 


AA 


E4 




1731 


8DDE 


68 


E4 




1732 


8DE8 


24 


F2 




1733 


8DE2 


32 


61 




1734 


8DE4 


35 


95 




1735 










1736 










1737 


8DE6 


F6 


FF 


22 


1738 


8DE9 


56 






1739 


8DEA 


38 


81 




1740 


8DEC 


26 


88 




1741 


8DEE 


4A 






1742 


8DEF 


26 


85 




1743 










1744 


8DF1 


32 


62 




1745 


8DF3 


35 


15 




1746 


8DF5 


4C 






1747 


8DF6 


39 






1748 










1749 


8DF7 


8D 


88 




175B 


8DF9 


34 


82 




1751 


8DFB 


96 


E6 




1752 


8DFD 


21 


FE 




1753 


8DFF 


4A 






1754 


8E88 


26 


FB 




1755 


8E82 


35 


82 




1756 










1757 


8E84 


34 


82 




1758 


8E86 


A8 


21 




1759 


8E88 


A7 


21 




1768 


8E8A 


35 


82 




1761 










1762 










1763 


8E8C 


34 


87 




1764 


8E8E 


lA 


58 




1765 


8E18 


8D 


E5 




1766 


8E12 


8D 


E3 




1767 


8E14 


7F 


FF 


28 


1768 


8E17 


8D 


DE 




1769 


8E19 


C6 


81 




1778 


8E1B 


34 


84 




1771 


8E1D 


A6 


62 




1772 


8E1F 


A4 


E4 




1773 


8E21 


27 


82 




1774 


8E23 


86 


82 




1775 


8E25 


B7 


FF 


28 


1776 


8E28 


8D 


CD 




1777 


8E2A 


68 


E4 




1778 


8E2C 


24 


EF 




1779 


8E2E 


86 


82 




1788 


8E38 


B7 


FF 


28 


1781 


8E33 


32 


61 




1782 


8E35 


35 


87 




1783 










1784 










1785 


8E37 


86 


81 




1786 


8E39 


97 


D9 




1787 










1788 


8E3B 


5A 






1789 


8E3C 


BD 


8F 


D8 


1798 


8E3F 


9D 


A5 




1791 


8E41 


18 


27 


88 93 


1792 


8E45 


D7 


D3 




1793 


8E47 


BD 


Bl 


56 


1794 


8E4A 


BD 


Bl 


46 


1795 


8E4D 


9E 


52 




1796 


8E4F 


9F 


4D 




1797 


8E51 


D6 


D9 




1798 


8E53 


BD 


B6 


AD 


1799 


8E56 


BD 


B9 


9F 


1888 










1881 


8E59 


9E 


52 




1882 


8E5B 


D6 


D9 




1883 


8E5D 


E8 


84 




1884 


8E5F 


5A 






1885 


8E68 


18 


2B 


81 4F 


1886 


8E64 


BD 


B9 


AC 


1887 


8E67 


28 


F6 




1888 










1889 


8E69 


D7 


D3 




1818 


8E6B 


9F 


8F 




1811 


8E6D 


86 


82 




1812 


8E6F 


97 


D9 




1813 


8E71 


A6 


84 




1814 


8E73 


81 


25 




1815 


8E75 


27 


C4 




1816 


8E77 


81 


28 




1817 


8E79 


26 


87 




1818 


8E7B 


8C 


D9 




1819 


8E7D 


38 


81 




1828 


8E7F 


5A 






1821 


8E88 


26 


EF 




1822 


8E82 


9E 


8F 




1823 


8E84 


D6 


D3 




1824 


8E86 


86 


25 







BCC 


L8DDE 




ORA 


,s 


L8DDE 


ASL 


,s 




BCC 


L8DD4 




LEAS 


$81, S 




PULS 


CC,B,X,PC 


* PUT RS 232 : 


5TATUS INTO THE CARR' 


L8DE6 


LDB 
RORB 


PIAl+2 




LEAX 


$81, X 




BNE 


L8DF6 




DECA 






BNE 


L8DF6 


* DLOAD 


HAS TIMED OUT HERE 




LEAS 


$82, S 




PULS 


CC,B,X 




INCA 




L8DF6 


RTS 




* DELAY 


LOOP 


-- COUNT DOWN DLBAUD 


L8DF7 


BSR 


L8DF9 


L8DF9 


PSHS 


A 




LDA 


DLBAUD 


L8DFD 


BRN 
DECA 


L8DFD 




BNE 


L8DFD 




PULS 


A, PC 


L8E84 


PSHS 


A 




EORA 


$81, Y 




STA 


$01, Y 




PULS 


A 


* SEND CHAR IN ACCA OUT OVER RS23; 


L8E0C 


PSHS 


B,A,CC 




ORCC 


#$58 




BSR 


L8DF7 




BSR 


L8DF7 




CLR 


PIAl 




BSR 


L8DF7 




LDB 


#$81 




PSHS 


B 


L8E1D 


LDA 


$82, S 




ANDA 


,s 




BEQ 


L8E25 




LDA 


#$82 


L8E25 


STA 


PIAl 




BSR 


L8DF7 




ASL 


,s 




BCC 


L8E1D 




LDA 


#$82 




STA 


PIAl 




LEAS 


$81, S 




PULS 


CC,A,B,PC 



* PROCESS EXCLAMATION POINT 
L8E37 LDA #$81 

STA VD9 

* PROCESS STRING ITEM - LIST 
L8E3B DECB 

JSR L8FD8 
JSR GETCCH 
LBEO L8ED8 
STB VD3 
JSR LB156 
JSR LB146 
LDX FPA8+2 
STX V4D 
LDB VD9 
JSR LB6AD 
JSR LB99F 

* PAD FORMAT STRING WITH SPACES IF ITEM 

LDX FPA8+2 
VD9 
,X 



LDB 

SUBB 

DECB 

LBMI 

JSR 

BRA 



L8FB3 
LB9AC 
L8E5F 



BRANCH IF RS 232 INPUT = 8 (SPACING) 
IF MARKING, OR A 1 BIT INTO DATA BYTE 
SHIFT BIT COUNTER ONE BIT TO LEFT 
CARRY WILL BE SET AFTER 8 SHIFTS 
PULL BIT COUNTER OFF THE STACK 
RESTORE INTERRUPT STATUS S RETURN 



* RS 232 INPUT TO 

* CARRY FLAG 

= INCREMENT CONSTANT TIMEOUT 
= DELAY, RETURN IF <> 8 

* DECREMENT VARIABLE TIMEOUT 

* DELAY: RETURN IF <> 8 

PURGE RETURN ADDRESS OFF STACK 
CLEAN UP STACK/RESTORE INTERRUPTS 
SET ACCA = 1; ZERO FLAG = 8 



CALL DELAY ROUTINE 

SAVE ACCA 

GET DLOAD DELAY - 1/2 BIT TIME DELAY 

DUMMY INST - JUST ADD TO DELAY 

DEC DELAY TIMER 

NOT DONE 

RESTORE ACCA AND RETURN 

SAVE CHARACTER ON STACK 

* EOR CHARACTER WITH 1,Y AND 

* SAVE RESULT IN 1,Y 
GET CHARACTER BACK 



SAVE ACCD AND INTERRUPT STATUS 

DISABLE INTERRUPTS 

DELAY AWHILE 

DELAY SOME MORE 

SET R5232 OUTPUT TO SPACING 

DELAY SOME MORE - START BIT 

BIT CTR - SEND 8 BITS 

SAVE BIT CTR ON STACK 

GET OUTPUT BYTE 

AND IT W/THE BIT CTR 

THIS BIT IN OUTPUT BYTE = 8 

OUTPUT BIT = 1; SET R5232 TO MARKING 

BET R5232 TO VALUE IN ACCA 

DELAY FOR AWHILE 

SHIFT BIT CTR 

WHEN CARRY SET, 8 BITS DONE 

WHEN DONE, SET R5232 TO MARKING 

SET R5232 OUTPUT 

PULL BIT CTR OFF THE STACK 

RESTORE ACCD, INTERRUPTS S RETURN 



* SET SPACES 

* COUNTER = 1 

DECREMENT FORMAT STRING LENGTH COUNTER 
SEND A '+' TO CONSOLE OUT IF VDA <>8 
GET CURRENT INPUT CHARACTER 
EXIT PRINT USING IF END OF LINE 
SAVE REMAINDER FORMAT STRING LENGTH 
EVALUATE EXPRESSION 
TM ERROR IF NUMERIC VARIABLE 

* GET ITEM - LIST DESCRIPTOR ADDRESS 

* AND SAVE IT IN V4D 
GET SPACES COUNTER 

PUT ACCB BYTES INTO STRING SPACE S PUT DESCRIPTOR ON STRING STACK 
PRINT THE FORMATTED STRING TO CONSOLE OUT 
LIST STRING < FORMAT STRING LENGTH 

POINT X TO FORMATTED STRING DESCRIPTOR ADDRESS 

GET SPACES COUNTER 

SUBTRACT LENGTH OF FORMATTED STRING 

DECREMENT DIFFERENCE 

GO INTERPRET ANOTHER ITEM - LIST 

PAD FORMAT STRING WITH A SPACE 

KEEP PADDING 



PERCENT SIGN - PROCESS A %SPACES% COMMAND 



STB 

STX 

LDA 

STA 

LDA 

CMPA 

BEQ 

CMPA 

BNE 

INC 

LEAX 

DECB 

BNE 

LDX 

LDB 

LDA 



VD3 

TEMPTR 

#$82 

VD9 

,X 

#■%■ 

L8E3B 

#■ ■ 

L8E82 

VD9 

$81, X 

L8E71 

TEMPTR 

VD3 



* SAVE THE CURRENT FORMAT STRING 

* COUNTER AND POINTER 
INITIAL SPACES COUNTER = 2 
SAVE IN SPACES COUNTER 

GET A CHARACTER FROM FORMAT STRING 

COMPARE TO TERMINATOR CHARACTER 

BRANCH IF END OF SPACES COMMAND 

BLANK 

BRANCH IF ILLEGAL CHARACTER 

ADD ONE TO SPACES COUNTER 

MOVE FORMAT POINTER UP ONE 

DECREMENT LENGTH COUNTER 

BRANCH IF NOT END OF FORMAT STRING 

* RESTORE CURRENT FORMAT STRING COUNTER 

* AND POINTER TO POSITION BEFORE SPACES COMMAND 
SEND A % TO CONSOLE OUT AS A DEBUGGING AID 



EXTENDED BASIC UNRAVELLED II 
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1825 










* ERROR 


PROCESSOR - ILLEGAL CHARy 


1826 


8E88 


BD 


8F 


D8 


L8E88 


JSR 


L8FD8 


1827 


8E8B 


BD 


A2 


82 




JSR 


LA282 


1828 


8E8E 


20 


29 






BRA 


L8EB9 


1829 
















1838 










* PRINT 


RAM HOOK 


1831 


8E90 


81 


CD 




XVEC9 


CMPA 


#$CD 


1832 


8E92 


27 


01 






BEQ 


L8E95 


1833 


8E94 


39 








RTS 




1834 
















1835 










* PRINT 


USING 




1836 










* VDA IS USED 


AS A STATUS BYTE: 1 


1837 










* BIT 5= 


=LEADING ASTERISK FORCE; 1 


1838 










* BIT 3 


= PRE 


SIGN FORCE; BIT 2 - 


1839 


8E95 


32 


62 




L8E95 


LEAS 


$02, S 


184B 


8E97 


BD 


Bl 


58 




JSR 


LB158 


1841 


8E9A 


BD 


Bl 


46 




JSR 


LB146 


1842 


8E9D 


C6 


3B 






LDB 


#' ;• 


1843 


8E9F 


BD 


B2 


6F 




JSR 


LB26F 


1844 


8EA2 


9E 


52 






LDX 


FPA0+2 


1845 


8EA4 


9F 


D5 






STX 


VD5 


1846 


8EA6 


20 


06 






BRA 


L8EAE 


1847 


8EA8 


96 


D7 




L8EA8 


LDA 


VD7 


1848 


8EAA 


27 


08 






BEO 


L8EB4 


1849 


8EAC 


9E 


D5 






LDX 


VD5 


1850 


8EAE 


0F 


D7 




L8EAE 


CLR 


VD7 


1851 


8EB0 


E6 


84 






LDB 


,x 


1852 


8EB2 


26 


03 






BNE 


L8EB7 


1853 


8EB4 


7E 


B4 


4A 


L8EB4 


JMP 


LB44A 


1854 


8EB7 


AE 


02 




L8EB7 


LDX 


$02, X 


1855 










* INTERPRET THE FORMAT STRING 


1856 


8EB9 


0F 


DA 




L8EB9 


CLR 


VDA 


1857 


8EBB 


0F 


D9 




L8EBB 


CLR 


VD9 


1858 


8EBD 


A6 


80 






LDA 


,x+ 


1859 


8EBF 


81 


21 






CMPA 


#• ! • 


1868 


8EC1 


10 


27 


FF 72 




LBEQ 


L8E37 


1861 


8EC5 


81 


23 






CMPA 


#■#■ 


1862 


8EC7 


27 


5B 






BEQ 


L8F24 


1863 


8EC9 


5A 








DECB 




1864 


8ECA 


26 


16 






BNE 


L8EE2 


1865 


8ECC 


BD 


8F 


D8 




JSR 


L8FD8 


1866 


8ECF 


BD 


A2 


82 




JSR 


LA282 


1867 


8ED2 


9D 


A5 




L8ED2 


JSR 


GETCCH 


1868 


8ED4 


26 


D2 






BNE 


L8EA8 


1869 


8ED6 


96 


D7 






LDA 


VD7 


187B 


8ED8 


26 


03 




L8ED8 


BNE 


L8EDD 


1871 


8EDA 


BD 


B9 


58 




JSR 


LB958 


1872 


8EDD 


9E 


D5 




L8EDD 


LDX 


VD5 


1873 


8EDF 


7E 


B6 


59 




JMP 


LB659 


1874 


8EE2 


81 


2B 




L8EE2 


CMPA 


#' + ' 


1875 


8EE4 


26 


09 






BNE 


L8EEF 


1876 


8EE6 


BD 


8F 


D8 




JSR 


L8FD8 


1877 


8EE9 


86 


08 






LDA 


#$08 


1878 


8EEB 


97 


DA 






STA 


VDA 


1879 


8EED 


20 


CC 






BRA 


L8EBB 


1880 


8EEF 


81 


2E 




L8EEF 


CMPA 


#' . ' 


1881 


8EF1 


27 


4E 






BEO 


L8F41 


1882 


8EF3 


81 


25 






CMPA 


#•%• 


1883 


8EF5 


10 


27 


FF 70 




LBEO 


L8E69 


1884 


8EF9 


Al 


84 






CMPA 


,x 


1885 










* 






1886 


8EFB 


26 


8B 




L8EFB 


BNE 


L8E88 


1887 










* TWO CONSECUTIVE EOUAL CHARACTEI 


1888 


8EFD 


81 


24 






CMPA 


#'$' 


1889 


8EFF 


27 


19 






BEO 


L8F1A 


1890 


8F01 


81 


2A 






CMPA 


#'*' 


1891 


8F03 


26 


F6 






BNE 


L8EFB 


1892 


8F05 


96 


DA 






LDA 


VDA 


1893 


8F07 


8A 


20 






ORA 


#$20 


1894 


8F09 


97 


DA 






STA 


VDA 


1895 


8F0B 


CI 


02 






CMPB 


#2 


1896 


8F0D 


25 


11 






BLO 


LBF20 


1897 


8F0F 


A6 


01 






LDA 


$01, X 


1898 


8F11 


81 


24 






CMPA 


#'$' 


1899 


8F13 


26 


0B 






BNE 


L8F20 


1900 


8F15 


5A 








DECB 




1901 


8F16 


30 


01 






LEAX 


$01, X 


1902 


8F18 


0C 


D9 






INC 


VD9 


1903 










* 






1904 


8F1A 


96 


DA 




L8F1A 


LDA 


VDA 


1905 


8F1C 


8A 


10 






ORA 


#$10 


1906 


8F1E 


97 


DA 






STA 


VDA 


1907 


8F20 


30 


01 




L8F20 


LEAX 


$01, X 


1908 


8F22 


0C 


D9 






INC 


VD9 


1909 










* PROCESS CHARACTERS TO THE LEFT 


1910 


8F24 


0F 


D8 




L8F24 


CLR 


VD8 


1911 


8F26 


0C 


D9 




L8F26 


INC 


VD9 


1912 


8F28 


5A 








DECB 




1913 


8F29 


27 


49 






BEQ 


L8F74 


1914 


8F2B 


A6 


80 






LDA 


,x+ 


1915 


8F2D 


81 


2E 






CMPA 


#■ .■ 


1916 


8F2F 


27 


IE 






BEQ 


L8F4F 


1917 


8F31 


81 


23 






CMPA 


#•#• 


1918 


8F33 


27 


Fl 






BEO 


L8F26 


1919 


8F35 


81 


2C 






CMPA 


#' ,' 


1920 


8F37 


26 


21 






BNE 


L8F5A 



ILLEGAL CHARACTER OR BAD SYNTAX IN FORMAT STRING 

SEND A +' TO CONSOLE OUT IF VDA <> 

SEND CHARACTER TO CONSOLE OUT 

GET NEXT CHARACTER IN FORMAT STRING 



USING TOKEN 

BRANCH IF PRINT USING 



BIT 6 = COMMA FORCE 

BIT 4 = FLOATING $ FORCE 

= POST SIGN FORCE; BIT = EXPONENTIAL FORCE 

PURGE RETURN ADDRESS OFF THE STACK 

EVALUATE FORMAT STRING 
TM ERROR IF VARIABLE TYPE = NUMERIC 

CHECK FOR ITEM LIST SEPARATOR 

SYNTAX CHECK FOR ; 

* GET FORMAT STRING DESCRIPTOR ADDRESS 

* AND SAVE IT IN VD5 
GO PROCESS FORMAT STRING 
*CHECK NEXT PRINT ITEM FLAG AND 

* FC ERROR IF NO FURTHER PRINT ITEMS 
RESET FORMAT STRING POINTER TO START OF STRING 
RESET NEXT PRINT ITEM FLAG 
GET LENGTH OF FORMAT STRING 
INTERPRET FORMAT STRING IF LENGTH > 

FC ERROR IF FORMAT STRING = NULL 
POINT X TO START OF FORMAT STRING 

CLEAR THE STATUS BYTE 

CLEAR LEFT DIGIT COUNTER 

GET A CHARACTER FROM FORMAT STRING 

EXCLAMATION POINT? 

YES - STRING TYPE FORMAT 

NUMBER SIGN? (DIGIT LOCATOR) 

YES - NUMERIC TYPE FORMAT 

DECREMENT FORMAT STRING LENGTH 

BRANCH IF NOT DONE 

SEND A + TO CONSOLE OUT IF VDA <> 

SEND CHARACTER TO CONSOLE OUT 

GET CURRENT CHARACTER FROM BASIC 

BRANCH IF NOT END OF LINE 

GET NEXT PRINT ITEM FLAG 

BRANCH IF MORE PRINT ITEMS 

SEND A CARRIAGE RETURN TO CONSOLE OUT 

POINT X TO FORMAT STRING DESCRIPTOR 

RETURN ADDRESS AND LENGTH OF FORMAT STRING - EXIT PRINT USING 

CHECK FOR + (PRE-SIGN FORCE) 

NO PLUS 

SEND A +• TO CONSOLE OUT IF VDA <> 

* LOAD THE STATUS BYTE WITH 8; 

* PRE-SIGN FORCE FLAG 

INTERPRET THE REST OF THE FORMAT STRING 
DECIMAL POINT? 
YES 

PERCENT SIGN? 
YES 

COMPARE THE PRESENT FORMAT STRING INPUT 
CHARACTER TO THE NEXT ONE IN THE STRING 
NO MATCH - ILLEGAL CHARACTER 

RS IN FORMAT STRING 

DOLLAR SIGN? 

YES - MAKE THE DOLLAR SIGN FLOAT 

ASTERISK? 

NO - ILLEGAL CHARACTER 

* GRAB THE STATUS BYTE AND BET BIT 5 

* TO INDICATE THAT THE OUTPUT WILL 

* BE LEFT PADDED WITH ASTERISKS 
= CHECK TO SEE IF THE $$ ARE THE LAST TWO 
= CHARACTERS IN THE FORMAT STRING AND BRANCH IF SO 
GET THE NEXT CHARACTER AFTER ** 
CHECK FOR **$ 
CHECK FOR MORE CHARACTERS 
DECREMENT STRING LENGTH COUNTER 
MOVE FORMAT STRING POINTER UP ONE 

ADD ONE TO LEFT DIGIT COUNTER - FOR ASTERISK PAD AND 
FLOATING DOLLAR SIGN COMBINATION 

* GET THE STATUS BYTE AND SET 

* BIT 4 TO INDICATE A 

* FLOATING DOLLAR SIGN 
MOVE FORMAT STRING POINTER UP ONE 
ADD ONE TO LEFT DIGIT (FLOATING $ OR ASTERISK PAD) 

OF THE DECIMAL POINT IN THE FORMAT STRING 

CLEAR THE RIGHT DIGIT COUNTER 

ADD ONE TO LEFT DIGIT COUNTER 

DECREMENT FORMAT STRING LENGTH COUNTER 

BRANCH IF END OF FORMAT STRING 

GET THE NEXT FORMAT CHARACTER 

DECIMAL POINT? 

YES 

NUMBER SIGN? 

YES 

COMMA? 

NO 
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1921 


8F39 


96 


DA 




1922 


8F3B 


8A 


40 




1923 


8F3D 


97 


DA 




1924 


8F3F 


20 


E5 




1925 










1926 


8F41 


A6 


84 




1927 


8F43 


81 


23 




1928 


8F45 


10 


26 


FF 3F 


1929 


8F49 


86 


01 




193B 


8F4B 


97 


DB 




1931 


8F4D 


30 


01 




1932 










1933 


8F4F 


0C 


D8 




1934 


8F51 


5A 






1935 


8F52 


27 


20 




1936 


8F54 


A6 


80 




1937 


8F56 


81 


23 




1938 


8F58 


27 


F5 




1939 










1940 


8F5A 


81 


5E 




1941 


8F5C 


26 


16 




1942 


8F5E 


Al 


84 




1943 


8F60 


26 


12 




1944 


8F62 


Al 


01 




1945 


8F64 


26 


0E 




1946 


8F66 


Al 


02 




1947 


8F68 


26 


0A 




1948 


8F6A 


CI 


04 




1949 


8F6C 


25 


06 




1950 


8F6E 


C0 


04 




1951 


8F70 


30 


04 




1952 


8F72 


0C 


DA 




1953 










1954 










1955 


8F74 


30 


IF 




1956 


8F76 


0C 


D9 




1957 


8F78 


96 


DA 




1958 


8F7A 


85 


08 




1959 


8F7C 


26 


18 




1960 


8F7E 


0A 


D9 




1961 


8F80 


5D 






1962 


8F81 


27 


13 




1963 


8F83 


A6 


84 




1964 


8F85 


80 


2D 




1965 


8F87 


27 


06 




1966 


8F89 


81 


FE 




1967 


8F8B 


26 


09 




1968 


8F8D 


86 


08 




1969 


8F8F 


8A 


04 




1970 


8F91 


9A 


DA 




1971 


8F93 


97 


DA 




1972 


8F95 


5A 






1973 










1974 










1975 


8F96 


9D 


A5 




1976 


8F98 


10 


27 


FF 3C 


1977 


8F9C 


D7 


D3 




1978 


8F9E 


BD 


Bl 


41 


1979 


8FA1 


96 


D9 




1980 


8FA3 


9B 


D8 




1981 


8FA5 


81 


11 




1982 


8FA7 


10 


22 


24 9F 


1983 


> 8FAB 


BD 


8F 


E5 


1984 


8FAE 


30 


IF 




1985 


8FB0 


BD 


B9 


9C 


1986 


8FB3 


0F 


D7 




1987 


8FB5 


9D 


A5 




1988 


8FB7 


27 


0D 




1989 


8FB9 


97 


D7 




1990 


8FBB 


81 


3B 




1991 


8FBD 


27 


05 




1992 


8FBF 


BD 


B2 


6D 


1993 


8FC2 


20 


02 




1994 


8FC4 


9D 


9F 




1995 


8FC6 


9E 


D5 




1996 


8FC8 


E6 


84 




1997 


8FCA 


D0 


D3 




1998 


8FCC 


AE 


02 




1999 


8FCE 


3A 






2000 


8FCF 


D6 


D3 




2001 


8FD1 


10 


26 


FE E4 


2002 


8FD5 


7E 


8E 


D2 


2003 










2004 










2005 










2006 


8FD8 


34 


02 




2007 


8FDA 


86 


2B 




2008 


8FDC 


0D 


DA 




2009 


8FDE 


27 


03 




2010 


8FE0 


BD 


A2 


82 


2011 


8FE3 


35 


82 




2012 










2013 










2014 


8FE5 


CE 


03 


DB 


2015 


8FE8 


C6 


20 




2016 


8FEA 


96 


DA 







LDA 


VDA 




ORA 


#$40 




STA 


VDA 




BRA 


L8F26 


* PROCESS DECIMAL POINT IF NO DIGITS 


L8F41 


LDA 


,x 




CMPA 


#■#■ 




LBNE 


L8E88 




LDA 


#1 




STA 


VD8 




LEAX 


$01, X 


* PROCESS DIGITS TO RIGHT OF DECIMAL 


L8F4F 


INC 
DECB 


VD8 




BEQ 


L8F74 




LDA 


,x+ 




CMPA 


#•#• 




BEO 


L8F4F 


* CHECK 


FOR EXPONENTIAL FORCE 


L8F5A 


CMPA 


#$5E 




BNE 


L8F74 




CMPA 


,x 




BNE 


L8F74 




CMPA 


$01, X 




BNE 


L8F74 




CMPA 


$02, X 




BNE 


L8F74 




CMPB 


#4 




BLO 


L8F74 




SUBB 


#4 




LEAX 


$04, X 




INC 


VDA 


* CHECK 


FOR A 


PRE OR POST - SIGN FOR( 


L8F74 


LEAX 


$-01, X 




INC 


VD9 




LDA 


VDA 




BITA 


#$08 




BNE 


L8F96 




DEC 


VD9 




TSTB 






BEQ 


L8F96 




LDA 


,x 




SUBA 


#•-• 




BEQ 


L8F8F 




CMPA 


#(•+•)-(•-•) 




BNE 


L8F96 




LDA 


#$08 


L8F8F 


ORA 


#$04 




ORA 


VDA 




STA 


VDA 




DECB 




* EVALUATE NUMERIC ITEM-LIST 


L8F96 


JSR 


GETCCH 




LBEO 


L8ED8 




STB 


VD3 




JSR 


LB141 




LDA 


VD9 




ADDA 


VD8 




CMPA 


#17 




LBHI 


LB44A 




JSR 


L8FE5 




LEAX 


$-01, X 




JSR 


STRINOUT 


L8FB3 


CLR 


VD7 




JSR 


GETCCH 




BEQ 


L8FC6 




STA 


VD7 




CMPA 


#' ;' 




BEO 


L8FC4 




JSR 


SYNCOMMA 




BRA 


L8FC6 


L8FC4 


JSR 


GETNCH 


L8FC6 


LDX 


VD5 




LDB 


,x 




SUBB 


VD3 




LDX 


$02, X 




ABX 






LDB 


VD3 




LBNE 


L8EB9 


* 


JMP 


L8ED2 


* PRINT 


A + 


TO CONSOLE OUT IF THE : 


L8FD8 


PSHS 


A 




LDA 


#' + ' 




TST 


VDA 




BEO 


L8FE3 




JSR 


LA282 


L8FE3 


PULS 


A, PC 



* GET THE STATUS BYTE 

* AND SET BIT 6 WHICH IS THE 

* COMMA SEPARATOR FLAG 
PROCESS MORE CHARACTERS TO LEFT OF DECIMAL POINT 

TO LEFT OF IT 

GET NEXT FORMAT CHARACTER 

IS IT A NUMBER SIGN? 

NO 

* SET THE RIGHT DIGIT COUNTER TO 1 - 

* ALLOW ONE SPOT FOR DECIMAL POINT 
MOVE FORMAT POINTER UP ONE 

POINT 

ADD ONE TO RIGHT DIGIT COUNTER 
DECREMENT FORMAT LENGTH COUNTER 
BRANCH IF END OF FORMAT STRING 
GET A CHARACTER FROM FORMAT STRING 
IS IT NUMBER SIGN? 
YES - KEEP CHECKING 

CHECK FOR UP ARROW 

NO UP ARROW 

IS THE NEXT CHARACTER AN UP ARROW? 

NO 

AND THE NEXT CHARACTER? 

NQ 

HOW ABOUT THE 4TH CHARACTER? 

NO, ALSO 

* CHECK TO SEE IF THE 4 UP ARROWS ARE IN THE 

* FORMAT STRING AND BRANCH IF NOT 
= MOVE POINTER UP 4 AND SUBTRACT 
= FOUR FROM LENGTH 
INCREMENT STATUS BYTE - EXPONENTIAL FORM 

SIGN FORCE AT END OF FORMAT STRING 

MOVE POINTER BACK ONE 

ADD ONE TO LEFT DIGIT COUNTER FOR PRE-SIGN FORCE 

* PRE-SIGN 

* FORCE AND 

* BRANCH IF SET 
DECREMENT LEFT DIGIT NO PRE-SIGN FORCE 

* CHECK LENGTH COUNTER AND BRANCH 

* IF END OF FORMAT STRING 
GET NEXT FORMAT STRING CHARACTER 
CHECK FOR MINUS SIGN 
BRANCH IF MINUS SIGN 
CHECK FOR PLUS SIGN 
BRANCH IF NO PLUS SIGN 
GET THE PRE-SIGN FORCE FLAG 

OR IN POST-SIGN FORCE FLAG 

OR IN THE STATUS BYTE 
SAVE THE STATUS BYTE 
DECREMENT FORMAT STRING LENGTH 



GET CURRENT CHARACTER 

BRANCH IF END OF LINE 

SAVE FORMAT STRING LENGTH WHEN FORMAT EVALUATION ENDED 

EVALUATE EXPRESSION 

GET THE LEFT DIGIT COUNTER 

ADD IT TO THE RIGHT DIGIT COUNTER 

* FC ERROR IF MORE THAN 16 DIGITS AND DECIMAL POINT 
CONVERT ITEM-LIST TO FORMATTED ASCII STRING 

MOVE BUFFER POINTER BACK ONE 

DISPLAY THE FORMATTED STRING TO CONSOLE OUT 

RESET NEXT PRINT ITEM FLAG 

GET CURRENT INPUT CHARACTER 

BRANCH IF END OF LINE 

SAVE CURRENT CHARACTER (<>0) IN NEXT PRINT ITEM FLAG 

* CHECK FOR ; - ITEM-LIST SEPARATOR AND 

* BRANCH IF SEMICOLON 
SYNTAX CHECK FOR COMMA 
PROCESS NEXT PRINT ITEM 
GET NEXT INPUT CHARACTER 

GET FORMAT STRING DESCRIPTOR ADDRESS 

GET LENGTH OF FORMAT STRING 

SUBTRACT AMOUNT OF FORMAT STRING LEFT AFTER LAST PRINT ITEM 

*GET FORMAT STRING START ADDRESS AND ADVANCE 

♦POINTER TO START OF UNUSED FORMAT STRING 

=GET AMOUNT OF UNUSED FORMAT STRING 

=REINTERPRET FORMAT STRING FROM THAT POINT 

REINTERPRET FORMAT STRING FROM THE START IF ENTIRELY 

USED ON LAST PRINT ITEM 



RESTORE ACCA AND RETURN 
GET ASCII PLUS SIGN 

* CHECK THE STATUS BYTE AND 

* RETURN IF = 

SEND A CHARACTER TO CONSOLE OUT 
RETURN ACCA AND RETURN 



* CONVERT ITEM-LIST TO DECIMAL ASCII 
L8FE5 LOU #STRBUF-^4 

LDB #SPACE 

LDA VDA 



POINT U TO STRING BUFFER 

BLANK 

* GET THE STATUS FLAG AND 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF EXTENDED BASIC 1.1 



ORIGINlSPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



2017 


8FEC 


85 


08 




2018 


8FEE 


27 


02 




2019 


8FF0 


C6 


2B 




2020 


8FF2 


0D 


54 




2021 


8FF4 


2A 


04 




2022 


8FF6 


0F 


54 




2023 


8FF8 


C6 


2D 




2024 


8FFA 


E7 


C0 




2025 


8FFC 


C6 


30 




2026 


8FFE 


E7 


C0 




2027 


9000 


84 


01 




2028 


9002 


10 


26 


01 07 


2029 


9006 


8E 


BD 


C0 


2030 


9009 


BD 


BC 


A0 


2031 


900C 


2B 


15 




2032 


900E 


BD 


BD 


D9 


2033 


9011 


A6 


80 




2034 


9013 


26 


FC 




2035 


9015 


A6 


82 




2036 


9017 


A7 


01 




2037 


9019 


8C 


03 


DA 


2038 


901C 


26 


F7 




2039 


901E 


86 


25 




2040 


9020 


A7 


84 




2041 


9022 


39 






2042 










2043 


9023 


96 


4F 




2044 


9025 


97 


47 




2045 


9027 


27 


03 




2046 


9029 


BD 


91 


CD 


2047 










2048 


902C 


96 


47 




2049 


902E 


10 


2B 


00 81 


2050 


9032 


40 






2051 


9033 


9B 


D9 




2052 


9035 


80 


09 




2053 


9037 


BD 


90 


EA 


2054 


903A 


BD 


92 


63 


2055 


903D 


BD 


92 


02 


2056 


9040 


96 


47 




2057 


9042 


BD 


92 


81 


2058 


9045 


96 


47 




2059 


9047 


BD 


92 


49 


2060 


904A 


96 


D8 




2061 


904C 


26 


02 




2062 


904E 


33 


5F 




2063 










2064 


9050 


4A 






2065 


9051 


BD 


90 


EA 


2066 


9054 


BD 


91 


85 


2067 


9057 


4D 






2068 


9058 


27 


06 




2069 


905A 


CI 


2A 




2070 


905C 


27 


02 




2071 


905E 


E7 


C0 




2072 


9060 


6F 


C4 




2073 










2074 










2075 










2076 


9062 


8E 


03 


DA 


2077 


9065 


30 


01 




2078 


9067 


9F 


0F 




2079 


9069 


96 


3A 




2080 


906B 


90 


10 




2081 


906D 


90 


D9 




2082 










2083 


906F 


27 


38 




2084 


9071 


A6 


84 




2085 


9073 


81 


20 




2086 


9075 


27 


EE 




2087 


9077 


81 


2A 




2088 


9079 


27 


EA 




2089 


907B 


4F 






2090 


907C 


34 


02 




2091 


907E 


A6 


80 




2092 


9080 


81 


2D 




2093 


9082 


27 


F8 




2094 


9084 


81 


2B 




2095 


9086 


27 


F4 




2096 


9088 


81 


24 




2097 


908A 


27 


F0 




2098 


908C 


81 


30 




2099 


908E 


26 


0E 




2100 


9090 


A6 


01 




2101 


9092 


8D 


16 




2102 


9094 


25 


08 




2103 


9096 


35 


02 




2104 


9098 


A7 


82 




2105 


909A 


26 


FA 




2106 


909C 


20 


C7 




2107 


909E 


35 


02 




2108 


90A0 


4D 






2109 


90A1 


26 


FB 




2110 


90A3 


9E 


0F 




2111 


90A5 


86 


25 




2112 


90A7 


A7 


82 







BITA 


#$08 




BEQ 


L8FF2 




LDB 


#■ + ■ 


L8FF2 


TST 


FP0SGN 




BPL 


L8FFA 




CLR 


FP0SGN 




LDB 


#'-' 


L8FFA 


STB 


,u+ 




LDB 


#•0' 




STB 


,u+ 




ANDA 


#$01 




LBNE 


L910D 




LDX 


#LBDC0 




JSR 


LBCA0 




BMI 


L9023 




JSR 


LBDD9 


L9011 


LDA 


,x+ 




BNE 


L9011 


L9015 


LDA 


,-x 




STA 


$01, X 




CMPX 


#STRBUF+3 




BNE 


L9015 




LDA 


#•%• 




STA 


,x 




RTS 




L9023 


LDA 


FP0EXP 




STA 


V47 




BEQ 


L902C 




JSR 


L91CD 


L902C 


LDA 


V47 




LBMI 


L90B3 




NEGA 






ADDA 


VD9 




SUBA 


#$09 




JSR 


L90EA 




JSR 


L9263 




JSR 


L9202 




LDA 


V47 




JSR 


L9281 




LDA 


V47 




JSR 


L9249 




LDA 


VD8 




BNE 


L9050 




LEAU 


$-01, U 


L9050 


DECA 






JSR 


L90EA 


L9054 


JSR 
TSTA 


L9185 




BEQ 


L9060 




CMPB 


#■*■ 




BEQ 


L9060 




STB 


,u+ 


L9060 


CLR 


,» 



REMOVE ANY EXTRA BLANKS OR ASTERI 
STRING BUFFER TO THE LEFT OF THE 



LDX 


#STRBUF+3 


LEAX 


$01, X 


STX 


TEMPTR 


LDA 


VARPTR+1 


SUBA 


TEMPTR+1 


SUBA 


VD9 


BEQ 


L90A9 


LDA 


,x 


CM PA 


#SPACE 


BEQ 


L9065 


CM PA 


#■*■ 


BEQ 


L9065 


CLRA 




PSHS 


A 


LDA 


,x+ 


CM PA 


#■-■ 


BEQ 


L907C 


CM PA 


#■ + ■ 


BEQ 


L907C 


CM PA 


$■$■ 


BEQ 


L907C 


CMPA 


#•0' 


BNE 


L909E 


LDA 


$01, X 


BSR 


L90AA 


BLO 


L909E 


PULS 


A 


STA 


,-X 


BNE 


L9096 


BRA 


L9065 


PULS 


A 


TSTA 

BNE 


L909E 


LDX 


TEMPTR 


LDA 


#■%■ 


STA 


,-X 



* CHECK FOR A PRE-SIGN FORCE 

* BRANCH IF NO PRE-SIGN FORCE 
PLUS SIGN 

CHECK THE SIGN OF FPA0 

BRANCH IF POSITIVE 

FORCE FPA0 SIGN TO BE POSITIVE 

MINUS SIGN 

SAVE THE SIGN IN BUFFER 

* PUT A ZERO INTO THE BUFFER 

= CHECK THE EXPONENTIAL FORCE FLAG IN 

= THE STATUS BYTE - BRANCH IF ACTIVE 

POINT X TO FLOATING POINT IE + 09 

COMPARE FPA0 TO (X) 

BRANCH IF FPA0 < lE+09 

CONVERT FP NUMBER TO ASCII STRING 

* ADVANCE POINTER TO END OF 

* ASCII STRING (ZERO BYTE) 
= MOVE THE 

= ENTIRE STRING 
= UP ONE 
= BYTE 

* INSERT A % SIGN AT START OF 

* STRING - OVERFLOW ERROR 



= GET EXPONENT OF FPA0 

= AND SAVE IT IN V47 

BRANCH IF FPA0 = 

CONVERT FPA0 TO NUMBER WITH 9 SIGNIFICANT 

PLACES TO LEFT OF DECIMAL POINT 

GET BASE 10 EXPONENT OFFSET 

BRANCH IF FPA0 < 100,000,000 

* CALCULATE THE NUMBER OF LEADING ZEROES TO INSERT - 

* SUBTRACT BASE 10 EXPONENT OFFSET AND 9 (FPA0 HAS 

* 9 PLACES TO LEFT OF EXPONENT) FROM LEFT DIGIT COUNTER 
PUT ACCA ZEROES IN STRING BUFFER 
INITIALIZE DECIMAL POINT AND COMMA COUNTERS 
CONVERT FPA0 TO DECIMAL ASCII IN THE STRING BUFFER 

* GET BASE 10 EXPONENT AND PUT THAT MANY 

* ZEROES IN STRING BUFFER - STOP AT DECIMAL POINT 
WASTED INSTRUCTION - SERVES NO PURPOSE 
CHECK FOR DECIMAL POINT 
GET THE RIGHT DIGIT COUNTER 
BRANCH IF RIGHT DIGIT COUNTER <> 

* MOVE BUFFER POINTER BACK ONE - DELETE 

* DECIMAL POINT IF NO RIGHT DIGITS SPECIFIED 
SUBTRACT ONE (DECIMAL POINT) 
PUT ACCA ZEROES INTO BUFFER (TRAILING ZEROES) 
INSERT ASTERISK PADDING, FLOATING $, AND POST-SIGN 
WAS THERE A POST-SIGN? 
NO 

IS THE FIRST CHARACTER AN $? 
YES 

STORE THE POST-SIGN 
CLEAR THE LAST CHARACTER IN THE BUFFER 

SKS FROM THE 
DECIMAL POINT 

POINT X TO THE START OF THE BUFFER 

MOVE BUFFER POINTER UP ONE 

SAVE BUFFER POINTER IN TEMPTR 

* GET ADDRESS OF DECIMAL POINT IN BUFFER, SUBTRACT 

* CURRENT POSITION AND SUBTRACT LEFT DIGIT COUNTER - 

* THE RESULT WILL BE ZERO WHEN TEMPTR+1 IS POINTING 

* TO THE FIRST DIGIT OF THE FORMAT STRING 
RETURN IF NO DIGITS TO LEFT OF THE DECIMAL POINT 
GET THE CURRENT BUFFER CHARACTER 

SPACE? 

YES - ADVANCE POINTER 

ASTERISK? 

YES - ADVANCE POINTER 

A ZERO ON THE STACK IS END OF DATA POINTER 

PUSH A CHARACTER ONTO THE STACK 

GET NEXT CHARACTER FROM BUFFER 

MINUS SIGN? 

YES 

PLUS SIGN? 

YES 

DOLLAR SIGN? 

YES 

ZERO? 

NO - ERROR 

GET CHARACTER FOLLOWING ZERO 

CLEAR CARRY IF NUMERIC 

BRANCH IF NOT A NUMERIC CHARACTER - ERROR 

* PULL A CHARACTER OFF OF THE STACK 

* AND PUT IT BACK IN THE STRING BUFFER 

* KEEP GOING UNTIL ZERO FLAG 
KEEP CLEANING UP THE INPUT BUFFER 
= REMOVE THE CHARACTERS ON 

= THE STACK AND EXIT WHEN 

= ZERO FLAG FOUND 

GET THE STRING BUFFER START POINTER 

* PUT A » SIGN BEFORE THE ERROR POSITION TO 

* INDICATE AN ERROR 



EXTENDED BASIC UNRAVELLED II 
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2113 


90A9 


39 




2114 








2115 








2116 


90AA 


81 


30 


2117 


90AC 


25 


04 


2118 


90AE 


80 


3A 


2119 


90B0 


80 


C6 


212EI 


90B2 


39 




2121 








2122 








2123 


90B3 


96 


D8 


2124 


90B5 


27 


01 


2125 


90B7 


4A 




2126 


90B8 


9B 


47 


2127 








2128 








2129 


90BA 


2B 


01 


2130 


90BC 


4F 




2131 


90BD 


34 


02 


2132 


90BF 


2A 


0A 


2133 


90C1 


34 


02 


2134 


90C3 


BD 


BB 82 


2135 


90C6 


35 


02 


2136 


90C8 


4C 




2137 


90C9 


20 


F4 


2138 


90CB 


96 


47 


2139 


90CD 


A0 


E0 


2140 


90CF 


97 


47 


2141 


90D1 


8B 


09 


2142 


90D3 


2B 


19 


2143 


90D5 


96 


D9 


2144 


90D7 


80 


09 


2145 


90D9 


90 


47 


2146 


90DB 


8D 


0D 


2147 


90DD 


BD 


92 63 


2148 


90E0 


20 


ID 


2149 








2150 








2151 


90E2 


34 


02 


2152 


90E4 


86 


30 


2153 


90E6 


A7 


C0 


2154 


90E8 


35 


02 


2155 








2156 








2157 


90EA 


4A 




2158 


90EB 


2A 


F5 


2159 


90ED 


39 




2160 








2161 


90EE 


96 


D9 


2162 


90F0 


8D 


F8 


2163 


90F2 


BD 


92 4D 


2164 


90F5 


86 


F7 


2165 


90F7 


90 


47 


2166 


90F9 


8D 


EF 


2167 


90FB 


0F 


45 


2168 


90FD 


0F 


D7 


2169 


90FF 


BD 


92 02 


2170 


9102 


96 


D8 


2171 


9104 


26 


02 


2172 


9106 


DE 


39 


2173 


9108 


9B 


47 


2174 








2175 








2176 


910A 


16 


FF 43 


2177 








2178 








2179 


910D 


96 


4F 


2180 


910F 


34 


02 


2181 


9111 


27 


03 


2182 


9113 


BD 


91 CD 


2183 








2184 


9116 


96 


D8 


2185 


9118 


27 


01 


2186 


911A 


4A 




2187 


911B 


9B 


D9 


2188 


911D 


7F 


03 DA 


2189 


9120 


D6 


DA 


2190 


9122 


C4 


04 


2191 


9124 


26 


03 


2192 


9126 


73 


03 DA 


2193 


9129 


BB 


03 DA 


2194 


912C 


80 


09 


2195 








2196 


912E 


34 


02 


2197 








2198 








2199 


9130 


2A 


0A 


2200 


9132 


34 


02 


2201 


9134 


BD 


BB 82 


2202 


9137 


35 


02 


2203 


9139 


4C 




2204 


913A 


20 


F4 


2205 


913C 


A6 


E4 


2206 


913E 


2B 


01 


2207 


9140 


4F 




2208 


9141 


40 





CLEAR CARRY IF NUMERIC 



L90AA 


CMPA 


#•0' 




BLO 


L90B2 




SUBA 


#'9'+l 




SUBA 


#-('9'+l) 


L90B2 


RTS 




* PROCESS AN 


ITEM-LIST WHICH IS < 100,01 


L90B3 


LDA 


VD8 




BEO 


L90B8 




DECA 




L90B8 


ADDA 


V47 


* 


BMI 


L90BD 




CLRA 




L90BD 


PSHS 


A 


L90BF 


BPL 


L90CB 




PSHS 


A 




JSR 


LBB82 




PULS 


A 




INCA 






BRA 


L90BF 


L90CB 


LDA 


V47 




SUBA 


,s+ 




STA 


V47 




ADDA 


#$09 




BMI 


L90EE 




LDA 


VD9 




SUBA 


#$09 




SUBA 


V47 




BSR 


L90EA 




JSR 


L9263 




BRA 


L90FF 


* PUT 


(ACCA+1) ASCII ZEROES IN BUFFER 


L90E2 


PSHS 


A 




LDA 


#'0' 




STA 


,u+ 




PULS 


A 


* PUT 


ACCA ASCII ZEROES INTO THE BUFFER 


L90EA 


DECA 






BPL 


L90E2 




RTS 




L90EE 


LDA 


VD9 




BSR 


L90EA 




JSR 


L924D 




LDA 


#-9 




SUBA 


V47 




BSR 


L90EA 




CLR 


V45 




CLR 


VD7 


L90FF 


JSR 


L9202 




LDA 


VD8 




BNE 


L9108 




LDU 


VARPTR 


L9108 


ADDA 


V47 


I 


LBRA 


L9050 


* FORCE THE NUMERIC OUTPUT FORMAT TO BE 


L910D 


LDA 


FP0EXP 




PSHS 


A 




BEQ 


L9116 




JSR 


L91CD 


L9116 


LDA 


VD8 




BEO 


L911B 




DECA 




L911B 


ADDA 


VD9 




CLR 


STRBUF+3 




LDB 


VDA 




ANDB 


#$04 




BNE 


L9129 




COM 


STRBUF+3 


L9129 


ADDA 


STRBUF+3 




SUBA 


#$09 


^ 


PSHS 


A 


L9130 


BPL 


L913C 




PSHS 


A 




JSR 


LBB82 




PULS 


A 




INCA 






BRA 


L9130 


L913C 


LDA 


,s 




BMI 


L9141 




CLRA 




L9141 


NEGA 





ASCII ZERO 

RETURN IF ACCA < ASCII 



*CARRY CLEAR IF NUMERIC 



GET RIGHT DIGIT COUNTER 

BRANCH IF NO FORMATTED DIGITS TO THE RIGHT OF DECIMAL PT 

SUBTRACT ONE FOR DECIMAL POINT 

*ADD THE BASE 10 EXPONENT OFFSET - ACCA CONTAINS THE 

*NUMBER OF SHIFTS REOUIRED TO ADJUST FPA0 TO THE SPECIFIED 

♦NUMBER OF DIGITS TO THE RIGHT OF THE DECIMAL POINT 

IF ACCA >= THEN NO SHIFTS ARE REOUIRED 

FORCE SHIFT COUNTER = 

SAVE INITIAL SHIFT COUNTER ON THE STACK 

EXIT ROUTINE IF POSITIVE 

SAVE SHIFT COUNTER ON STACK 

DIVIDE FPA0 BY 10 - SHIFT ONE DIGIT TO RIGHT 

GET SHIFT COUNTER FROM THE STACK 

BUMP SHIFT COUNTER UP BY ONE 

CHECK FOR FURTHER DIVISION 

* GET BASE 10 EXPONENT OFFSET, ADD INITIAL SHIFT COUNTER 

* AND SAVE NEW BASE 10 EXPONENT OFFSET - BECAUSE 

* FPA0 WAS SHIFTED ABOVE 

=ADD NINE (SIGNIFICANT PLACES) AND BRANCH IF THERE ARE NO 
=ZEROES TO THE LEFT OF THE DECIMAL POINT IN THIS PRINT ITEM 
♦DETERMINE HOW MANY FILLER ZEROES TO THE LEFT OF THE DECIMAL 
♦POINT. GET THE NUMBER OF FORMAT PLACES TO LEFT OF DECIMAL 
♦POINT, SUBTRACT THE BASE 10 EXPONENT OFFSET AND THE CONSTANT 9 
♦(UNNORMALIZATION)-THEN OUTPUT THAT MANY ZEROES TO THE BUFFER 
INITIALIZE DECIMAL POINT AND COMMA COUNTERS 
PROCESS THE REMAINDER OF THE PRINT ITEM 



SAVE ZERO COUNTER 

♦ INSERT A ZERO INTO 

♦ THE BUFFER 
RESTORE ZERO COUNTER 



DECREMENT ZERO COUNTER 
BRANCH IF NOT DONE 



♦ GET THE LEFT DIGIT COUNTER AND PUT 

♦ THAT MANY ZEROES IN THE STRING BUFFER 
PUT THE DECIMAL POINT IN THE STRING BUFFER 

♦DETERMINE HOW MANY FILLER ZEROES BETWEEN THE DECIMAL POINT 

♦AND SIGNIFICANT DATA. SUBTRACT BASE 10 EXPONENT FROM -9 

♦(UNNORMALIZATION) AND OUTPUT THAT MANY ZEROES TO BUFFER 

CLEAR THE DECIMAL POINT COUNTER - SUPPRESS THE DECIMAL POINT 

CLEAR THE COMMA COUNTER - SUPPRESS COMMAS 

DECODE FPA0 INTO A DECIMAL ASCII STRING 

GET THE RIGHT DIGIT COUNTER 

BRANCH IF RIGHT DIGIT COUNTER <> 

RESET BUFFER PTR TO THE DECIMAL POINT IF NO DIGITS TO RIGHT 

♦ADD BASE 10 EXPONENT - A POSITIVE ACCA WILL CAUSE THAT MANY 

♦FILLER ZEROES TO BE OUTPUT TO THE RIGHT OF LAST SIGNIFICANT DATA 

♦SIGNIFICANT DATA 

INSERT LEADING ASTERISKS, FLOATING DOLLAR SIGN, ETC 



♦ GET EXPONENT OF FPA0 AND 

♦ SAVE IT ON THE STACK 
BRANCH IF FPA0 = 

♦CONVERT FPA0 INTO A NUMBER WITH 9 SIGNIFICANT 

♦DIGITS TO THE LEFT OF THE DECIMAL POINT 

GET THE RIGHT DIGIT COUNTER 

BRANCH IF NO FORMATTED DIGITS TO THE RIGHT 

SUBTRACT ONE FOR THE DECIMAL POINT 

ADD TO THE LEFT DIGIT COUNTER 

CLEAR BUFFER BYTE AS TEMPORARY STORAGE LOCATION 

♦ GET THE STATUS BYTE FOR A 

♦ POST-BYTE FORCE; BRANCH IF 

♦ A POST-BYTE FORCE 

TOGGLE BUFFER BYTE TO -1 IF NO POST-BYTE FORCE 

SUBTRACT 1 IF NO POST BYTE FORCE 

♦SUBTRACT 9 (DUE TO THE CONVERSION TO 9 

♦SIGNIFICANT DIGITS TO LEFT OF DECIMAL POINT) 

=SAVE SHIFT COUNTER ON THE STACK - ACCA CONTAINS THE NUMBER 

=0F SHIFTS REOUIRED TO ADJUST FPA0 FOR THE NUMBER OF 

=FORMATTED PLACES TO THE RIGHT OF THE DECIMAL POINT. 

NO MORE SHIFTS WHEN ACCA >= 

SAVE SHIFT COUNTER 

DIVIDE FPA0 BY 10 - SHIFT TO RIGHT ONE 

RESTORE THE SHIFT COUNTER 

ADD 1 TO SHIFT COUNTER 

CHECK FOR FURTHER SHIFTING (DIVISION) 

♦GET THE INITIAL VALUE OF THE SHIFT COUNTER 

♦AND BRANCH IF SHIFTING HAS TAKEN PLACE 

RESET ACCA IF NO SHIFTING HAS TAKEN PLACE 

♦CALCULATE THE POSITION OF THE DECIMAL POINT BY 
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2209 


9142 


9B 


D9 


221B 


9144 


4C 




2211 


9145 


BB 


83 DA 


2212 


9148 


97 


45 


2213 


914A 


8F 


D7 


2214 


914C 


BD 


92 82 


2215 


914F 


35 


82 


2216 


9151 


BD 


92 81 


2217 


9154 


96 


D8 


2218 


9156 


26 


82 


2219 


9158 


33 


5F 


2220 








2221 








2222 


915A 


E6 


E8 


2223 


915C 


27 


89 


2224 


915E 


D6 


47 


2225 


9168 


CB 


89 


2226 


9162 


D8 


D9 


2227 


9164 


F8 


83 DA 


2228 


9167 


86 


2B 


2229 


9169 


5D 




223B 


916A 


2A 


83 


2231 


916C 


86 


2D 


2232 


916E 


58 




2233 


916F 


A7 


41 


2234 


9171 


86 


45 


2235 


9173 


A7 


CI 


2236 


9175 


86 


2F 


2237 








2238 


9177 


4C 




2239 


9178 


C8 


8A 


2248 


917A 


24 


FB 


2241 


917C 


CB 


3A 


2242 


917E 


ED 


CI 


2243 


9188 


6F 


C4 


2244 


9182 


7E 


98 54 


2245 








2246 








2247 


9185 


8E 


83 DB 


2248 


9188 


E6 


84 


2249 


918A 


34 


84 


2250 


918C 


86 


28 


2251 


918E 


D6 


DA 


2252 


9198 


C5 


28 


2253 


9192 


35 


84 


2254 


9194 


27 


88 


2255 


9196 


86 


2A 


2256 


9198 


CI 


28 


2257 


919A 


26 


82 


2258 


919C 


IF 


89 


2259 


919E 


34 


84 


2268 


91A8 


A7 


88 


2261 


91A2 


E6 


84 


2262 


91A4 


27 


18 


2263 


91A6 


CI 


45 


2264 


91A8 


27 


8C 


2265 


91AA 


CI 


38 


2266 


91AC 


27 


F2 


2267 


91AE 


CI 


2C 


2268 


91B8 


27 


EE 


2269 


91B2 


CI 


2E 


2278 


91B4 


26 


84 


2271 


91B6 


86 


38 


2272 


91B8 


A7 


82 


2273 


91BA 


96 


DA 


2274 


91BC 


85 


18 


2275 


91BE 


27 


84 


2276 


91C8 


C6 


24 


2277 


91C2 


E7 


82 


2278 


91C4 


84 


84 


2279 


91C6 


35 


84 


2288 


91C8 


26 


82 


2281 


91CA 


E7 


82 


2282 


91CC 


39 




2283 








2284 








2285 








2286 


91CD 


34 


48 


2287 


91CF 


4F 




2288 


91D8 


97 


47 


2289 


91D2 


D6 


4F 


2298 


91D4 


CI 


88 


2291 


91D6 


22 


11 


2292 








2293 








2294 


91D8 


8E 


BD C8 


2295 


91DB 


BD 


BA CA 


2296 


91DE 


96 


47 


2297 


91E8 


88 


89 


2298 


91E2 


28 


EC 


2299 


91E4 


BD 


BB 82 


2388 


91E7 


8C 


47 


2381 


91E9 


8E 


BD BB 


2382 


91EC 


BD 


BC A8 


2383 


91EF 


2E 


F3 


2384 


91F1 


8E 


BD B6 



ADDA 


VD9 


INCA 




ADDA 


STRBUF+3 


STA 


V45 


CLR 


VD7 


JSR 


L9282 


PULS 


A 


JSR 


L9281 


LDA 


VD8 


BNE 


L915A 


LEAU 


$-81, U 


ATE VALUE OF E) 


LDB 


,s+ 


BED 


L9167 


LDB 


V47 


ADDB 


#$89 


SUBB 


VD9 


SUBB 


STRBUF+3 


LDA 


#' + ' 


TSTB 




BPL 


L916F 


LDA 


#■-■ 


NEGB 




STA 


$81, U 


LDA 


#'E' 


STA 


,u++ 


LDA 


#'8'-l 



♦NEGATING SHIFT COUNTER, ADDING THE LEFT DIGIT COUNTER 

*PLUS ONE AND THE POST-BYTE POSITION, IF USED 

* 

SAVE DECIMAL POINT COUNTER 

CLEAR COMMA COUNTER - NO COMMAS INSERTED 

CONVERT FPA8 INTO ASCII DECIMAL STRING 

=GET THE INITIAL VALUE OF SHIFT COUNTER AND 

=INSERT THAT MANY ZEROES INTO THE BUFFER 

*GET THE RIGHT DIGIT COUNTER AND BRANCH 

*IF NOT ZERO 

MOVE BUFFER POINTER BACK ONE 



GET ORIGINAL EXPONENT OF FPA8 

BRANCH IF EXPONENT = 8 

GET BASE 18 EXPONENT 

ADD 9 FOR 9 SIGNIFICANT DIGIT CONVERSION 

SUBTRACT LEFT DIGIT COUNTER 

ADD ONE TO EXPONENT IF POST-SIGN FORCE 

PLUS SIGN 

TEST EXPONENT 

BRANCH IF POSITIVE EXPONENT 

MINUS SIGN 

CONVERT EXPONENT TO POSITIVE NUMBER 

PUT SIGN OF EXPONENT IN STRING BUFFER 

* PUT AN E (EXPONENTIATION FLAG) IN 

* BUFFER AND SKIP OVER THE SIGN 
INITIALIZE TENS DIGIT TO ASCII ZERO MINUS ONE 

'CONVERT BINARY EXPONENT IN ACCB TO ASCII VALUE IN ACCA 

L9177 INCA ADD ONE TO TENS DIGIT COUNTER 

SUBB #18 'SUBTRACT 18 FROM EXPONENT AND ADD ONE TO TENS 

BCC L9177 * DIGIT IF NO CARRY. TENS DIGIT DONE IF THERE IS A CARRY 

ADD ASCII BIAS TO UNITS DIGIT 
SAVE EXPONENT IN BUFFER 

CLEAR FINAL BYTE IN BUFFER - PRINT TERMINATOR 
INSERT ASTERISK PADDING, FLOATING DOLLAR SIGN, ETC. 



POINT X TO START OF PRINT ITEM BUFFER 

* GET SIGN BYTE OF ITEM-LIST BUFFER 

* AND SAVE IT ON THE STACK 
DEFAULT PAD WITH BLANKS 

* GET STATUS BYTE AND CHECK FOR 

* ASTERISK LEFT PADDING 
GET SIGN BYTE AGAIN 
BRANCH IF NO PADDING 
PAD WITH ASTERISK 

WAS THE FIRST BYTE A BLANK (POSITIVE)? 

NO 

TRANSFER PAD CHARACTER TO ACCB 

SAVE FIRST CHARACTER ON STACK 

STORE PAD CHARACTER IN BUFFER 

GET NEXT CHARACTER IN BUFFER 

INSERT A ZERO IF END OF BUFFER 

* CHECK FOR AN E AND 

* PUT A ZERO BEFORE IT 

= REPLACE LEADING ZEROES WITH 
= PAD CHARACTERS 

* REPLACE LEADING COMMAS 

* WITH PAD CHARACTERS 

= CHECK FOR DECIMAL POINT 

= AND DON T PUT A ZERO BEFORE IT 

* REPLACE PREVIOUS CHARACTER 

* WITH A ZERO 

= GET STATUS BYTE, CHECK 

= FOR FLOATING $ 

= BRANCH IF NO FLOATING $ 

* STORE A $ IN 

* BUFFER 

CHECK PRE-SIGN FLAG 

GET SIGN CHARACTER 

RETURN IF POST-SIGN REQUIRED 

STORE FIRST CHARACTER 



* CONVERT FPA8 INTO A NUMBER OF THE FORM - NNN,NNN,NNN X 18**M. 

* THE EXPONENT M WILL BE RETURNED IN V47 (BASE 18 EXPONENT). 
L91CD PSHS U SAVE BUFFER POINTER 

CLRA INITIAL EXPONENT OFFSET = 8 

L91D8 STA V47 SAVE EXPONENT OFFSET 

LDB FP8EXP GET EXPONENT OF FPA8 

CMPB #$88 * COMPARE TO EXPONENT OF .5 

BHI L91E9 * AND BRANCH IF FPA8 > = 1.8 

* IF FPA8 < 1.8, MULTIPLY IT BY lE+89 UNTIL IT IS >= 1 





ADDB 


#'9'-l 




STD 


,u++ 




CLR 


,u 




JMP 


L9854 


* INSERT 


■ ASTERISK PADDH 


L9185 


LDX 


#STRBUF+4 




LDB 


,x 




PSHS 


B 




LDA 


#SPACE 




LDB 


VDA 




BITB 


#$28 




PULS 


B 




BEQ 


L919E 




LDA 


#■*■ 




CMPB 


#SPACE 




BNE 


L919E 




TFR 


A,B 


L919E 


PSHS 


B 


L91A8 


STA 


,x+ 




LDB 


,x 




BEO 


L91B6 




CMPB 


#'E' 




BEQ 


L91B6 




CMPB 


#'8' 




BEQ 


L91A8 




CMPB 


#■ ,■ 




BEQ 


L91A8 




CMPB 


#■ .■ 




BNE 


L91BA 


L91B6 


LDA 


#'8' 




STA 


,-x 


L91BA 


LDA 


VDA 




BITA 


#$18 




BEQ 


L91C4 




LDB 


#'$' 




STB 


,-X 


L91C4 


ANDA 


#$84 




PULS 


B 




BNE 


L91CC 




STB 


,-X 


L91CC 


RTS 





LDX #LBDC8 
JSR LBACA 
LDA V47 
SUBA #$89 
BRA L91D8 
LBB82 
V47 

#LBDBB 
LBCA8 
L91E4 
#LBDB6 



JSR 
INC 
LDX 
JSR 
BGT 
LDX 



POINT X TO FP NUMBER (lE+89) 

MULTIPLY FPA8 BY lE+89 

GET EXPONENT OFFSET 

SUBTRACT 9 (BECAUSE WE MULTIPLIED BY lE+89 ABOVE) 

CHECK TO SEE IF > 1.8 

DIVIDE FPA8 BY 18 

INCREMENT EXPONENT OFFSET 

POINT X TO FP NUMBER (999,999,999) 

COMPARE FPA8 TO X 

BRANCH IF FPA8 > 999,999,999 

POINT X TO FP NUMBER (99,999,999.9) 
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2305 


91F4 


BD 


BC A0 


2306 


91F7 


2E 


07 


2307 


91F9 


BD 


BB 6A 


2308 


91FC 


0A 


47 


2309 


91FE 


20 


Fl 


2310 


9200 


35 


C0 


2311 








2312 








2313 








2314 


9202 


34 


40 


2315 


9204 


BD 


B9 B4 


2316 


9207 


BD 


BC C8 


2317 


920A 


35 


40 


2318 








2319 








2320 


920C 


8E 


BE C5 


2321 


920F 


C6 


80 


2322 








2323 








2324 








2325 








2326 


9211 


8D 


36 


2327 


9213 


96 


53 


2328 


9215 


AB 


03 


2329 


9217 


97 


53 


2330 


9219 


96 


52 


2331 


921B 


A9 


02 


2332 


921D 


97 


52 


2333 


921F 


96 


51 


2334 


9221 


A9 


01 


2335 


9223 


97 


51 


2336 


9225 


96 


50 


2337 


9227 


A9 


84 


2338 


9229 


97 


50 


2339 


922B 


5C 




2340 


922C 


56 




2341 


922D 


59 




2342 


922E 


28 


E3 


2343 


9230 


24 


03 


2344 


9232 


C0 


0B 


2345 


9234 


50 




2346 


9235 


CB 


2F 


2347 


9237 


30 


04 


2348 


9239 


IF 


98 


2349 


923B 


84 


7F 


2350 


923D 


A7 


C0 


2351 


923F 


53 




2352 


9240 


C4 


80 


2353 


9242 


8C 


BE E9 


2354 


9245 


26 


CA 


2355 


9247 


6F 


C4 


2356 








2357 








2358 


9249 


0A 


45 


2359 


924B 


26 


09 


2360 


924D 


DF 


39 


2361 


924F 


86 


2E 


2362 


9251 


A7 


C0 


2363 


9253 


0F 


D7 


2364 








2365 


9255 


39 




2366 


9256 


0A 


D7 


2367 


9258 


26 


08 


2368 


925A 


86 


03 


2369 


925C 


97 


D7 


2370 


925E 


86 


2C 


2371 


9260 


A7 


C0 


2372 


9262 


39 




2373 








2374 








2375 


9263 


96 


47 


2376 


9265 


8B 


0A 


2377 


9267 


97 


45 


2378 


9269 


4C 




2379 


926A 


80 


03 


2380 


926C 


24 


FC 


2381 


926E 


8B 


05 


2382 


9270 


97 


D7 


2383 


9272 


96 


DA 


2384 


9274 


84 


40 


2385 


9276 


26 


02 


2386 


9278 


97 


D7 


2387 


927A 


39 




2388 








2389 








2390 


927B 


34 


02 


2391 


927D 


8D 


CA 


2392 


927F 


35 


02 


2393 


9281 


4A 




2394 


9282 


2B 


0A 


2395 


9284 


34 


02 


2396 


9286 


86 


30 


2397 


9288 


A7 


C0 


2398 


928A 


A6 


E0 


2399 


928C 


26 


ED 


2400 


928E 


39 





JSR 


LBCA0 


BGT 


L9200 


JSR 


LBB6A 


DEC 


V47 


BRA 


L91F1 


PULS 


U,PC 



COMPARE FPA0 TO X 

RETURN IF 999,999,999 > FPA0 > 99,999,999. 

MULTIPLY FPA0 BY 10 

DECREMENT EXPONENT OFFSET 

KEEP UNNORMALIZING 

RESTORE BUFFER POINTER AND RETURN 



CONVERT FPA0 INTO AN INTEGER, THEN DECODE IT 
INTO A DECIMAL ASCII STRING IN THE BUFFER 
9202 PSHS U 

JSR LB9B4 
JSR LBCC8 
PULS U 



SAVE BUFFER POINTER 
ADD .5 TO FPA0 (ROUND OFF) 
CONVERT FPA0 TO INTEGER FORMAT 
RESTORE BUFFER POINTER 



CONVERT FPA0 INTO A DECIMAL ASCII STRING 

LDX #LBEC5 POINT X TO UNNORMALIZED POWERS OF 10 

LDB #$80 INITIALIZE DIGIT COUNTER TO + $80. 

BIT 7 SET IS USED TO INDICATE THAT THE POWER OF 10 MANTISSA 

IS NEGATIVE. WHEN YOU ADD A NEGATIVE MANTISSA, IT IS 

THE SAME AS SUBTRACTING A POSITIVE ONE AND BIT 7 OF ACCB 

IS HOW THIS ROUTINE KNOWS THAT A SUBTRACTION IS OCCURRING. 



L9211 
L9213 



BSR 

LDA 

ADDA 

STA 

LDA 

ADCA 

STA 

LDA 

ADCA 

STA 

LDA 

ADCA 

STA 

INCB 

RORB 

ROLB 

BVC 

BCC 

SUBB 

NEGB 

ADDB 

LEAX 

TFR 

ANDA 

STA 

COMB 

ANDB 

CMPX 

BNE 

CLR 



L9249 

FPA0+3 

$03, X 

FPA0+3 

FPA0+2 

$02, X 

FPA0+2 

FPA0+1 

$01, X 

FPA0+1 

FPA0 

,X 

FPA0 



L9213 
L9235 
#10+1 

#'0'-l 
$04, X 
B,A 
#$7F 
,U+ 

#$80 
#LBEE9 
L9211 
,U 



CHECK FOR COMMA INSERTION 

* ADD A POWER OF 10 MANTISSA TO FPA0. 

* IF THE MANTISSA IS NEGATIVE, A SUBTRACTION 

* WILL BE WHAT REALLY TAKES PLACE. 



ADD ONE TO DIGIT COUNTER 
ROTATE CARRY INTO BIT 7 

* SET OVERFLOW FLAG - BRANCH IF CARRY SET AND 

* ADDING MANTISSA OR CARRY CLEAR AND SUBTRACTING MANTISSA 
BRANCH IF SUBTRACTING MANTISSA 

* TAKE THE 9 S COMPLEMENT 

* IF ADDING MANTISSA 
ADD IN ASCII OFFSET 

MOVE TO NEXT POWER OF 10 MANTISSA 

SAVE DIGIT IN ACCA 

MASK OFF ADD/SUBTRACT FLAG (BIT 7) 

STORE DIGIT IN BUFFER 

TOGGLE ADD/SUBTRACT FLAG 

MASK OFF EVERYTHING BUT ADD/SUB FLAG 

COMPARE TO END OF UNNORMALIZED POWERS OF 10 

BRANCH IF NOT DONE 

PUT A ZERO AT END OF INTEGER 



DECREMENT DECIMAL POINT COUNTER AND CHECK FOR COMMA INSERTION 

9249 DEC V45 DECREMENT DECIMAL POINT COUNTER 

BNE L9256 NOT TIME FOR DECIMAL POINT 

9240 STU VARPTR SAVE BUFFER POINTER-POSITION OF THE DECIMAL POINT 

LDA #' . ' * STORE A DECIMAL 

STA ,U+ * POINT IN THE OUTPUT BUFFER 

CLR VD7 =CLEAR COMMA COUNTER - NOW IT WILL TAKE 255 

=DECREMENTS BEFORE ANOTHER COMMA WILL BE INSERTED 



RTS 
DEC 
BNE 
LDA 
STA 
LDA 
STA 
RTS 



VD7 
L9262 
#$03 
VD7 

#' ,' 
,U+ 



DECREMENT COMMA COUNTER 
RETURN IF NOT TIME FOR COMMA 

* RESET COMMA COUNTER TO 3; THREE 

* DIGITS BETWEEN COMMAS 
= PUT A COMMA INTO 

= THE BUFFER 



INITIALIZE DECIMAL POINT AND COMMA COUNTERS 

9263 LDA V47 

ADDA #10 

STA V45 

INCA 

926A SUBA #$03 

BCC L926A 

ADDA #$05 

STA VD7 

LDA VDA 

ANDA #$40 

BNE L927A 

STA VD7 
927A RTS 

INSERT ACCA ZEROES INTO THE BUFFER 



GET THE BASE 10 EXPONENT OFFSET 

* ADD 10 (FPA0 WAS NORMALIZED TO 9 PLACES LEFT 

* OF DECIMAL POINT) - SAVE IN DECIMAL POINT COUNTER 
ADD ONE FOR THE DECIMAL POINT 

= DIVIDE DECIMAL POINT COUNTER BY 3; LEAVE 

= THE REMAINDER IN ACCA 

CONVERT REMAINDER INTO A NUMBER FROM 1-3 

SAVE COMMA COUNTER 

GET STATUS BYTE 

CHECK FOR COMMA FLAG 

BRANCH IF COMMA FLAG ACTIVE 

CLEAR COMMA COUNTER - 255 DIGITS OUTPUT BEFORE A COMMA 



PSHS 

BSR 

PULS 

DECA 

BMI 

PSHS 

LDA 

STA 

LDA 

BNE 

RTS 



A 

L9249 

A 

L928E 

A 

#'0' 

,U+ 

,S+ 

L927B 



SAVE ZEROES COUNTER 
CHECK FOR DECIMAL POINT 
RESTORE ZEROES COUNTER 

* DECREMENT ZEROES COUNTER AND 

* RETURN IF < 
SAVE ZEROES COUNTER 

* PUT A ZERO INTO 

* THE BUFFER 

RESTORE THE ZEROES COUNTER 
BRANCH IF NOT DONE 
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Z4az 








2403 








2404 








2405 








2406 








2407 








2408 








2409 








2410 


928F 


CE 


92 9C 


2411 


9292 


96 


B6 


2412 


9294 


48 




2413 


9295 


EE 


C6 


2414 


9297 


39 




2415 








2416 








2417 








2418 


9298 


8D 


F5 


2419 


929A 


6E 


C4 


2420 








2421 








2422 


929C 


92 


A6 


2423 


929E 


92 


C2 


2424 


92A0 


92 


A6 


2425 


92A2 


92 


C2 


2426 


92A4 


92 


A6 


2427 








2428 








2429 








2430 


92A6 


34 


44 


2431 


92A8 


D6 


B9 


2432 


92AA 


96 


C0 


2433 


92AC 


3D 




2434 


92AD 


D3 


BA 


2435 


92AF 


IF 


01 


2436 


92B1 


D6 


BE 


2437 


92B3 


54 




2438 


92B4 


54 




2439 


92B5 


54 




2440 


92B6 


3A 




2441 


92B7 


96 


BE 


2442 


92B9 


84 


07 


2443 








2444 


92BB 


CE 


92 DD 


2445 


92BE 


A6 


C6 


2446 








2447 


92C0 


35 


C4 


2448 








2449 








2450 








2451 


92C2 


34 


44 


2452 


92C4 


D6 


B9 


2453 


92C6 


96 


C0 


2454 


92C8 


3D 




2455 


92C9 


D3 


BA 


2456 


92CB 


IF 


01 


2457 


92CD 


D6 


BE 


2458 


92CF 


54 




2459 


92D0 


54 




2460 


92D1 


3A 




2461 


92D2 


96 


BE 


2462 


92D4 


84 


03 


2463 








2464 


92D6 


CE 


92 E5 


2465 


92D9 


A6 


C6 


2466 


92DB 


35 


C4 


2467 








2468 








2469 


92DD 


80 


40 20 10 


2470 


92E3 


02 


01 


2471 








2472 








2473 


92E5 


C0 


30 0C 03 


2474 








2475 








2476 


92E9 


D6 


B9 


2477 


92EB 


3A 




2478 


92EC 


39 




2479 








2480 








2481 








2482 








2483 


92ED 


44 




2484 


92EE 


24 


03 


2485 


92F0 


46 




2486 


92F1 


30 


01 


2487 


92F3 


39 




2488 








2489 








2490 








2491 








2492 








2493 


92F4 


44 




2494 


92F5 


24 


F6 


2495 


92F7 


86 


C0 


2496 


92F9 


30 


01 



******* GRAPHICS PACKAGE ******** 

* GET THE ADDRESS OF THE ROUTINE WHICH 

* WILL CONVERT HOR S VER COORDINATES INTO 

* AN ABSOLUTE RAM ADDRESS AND PIXEL MASK 

* DEPENDING UPON THE CURRENT PMODE AND 

* RETURN THE ADDRESS IN U. 

L928F LDU #L929C 

LDA PMODE 
AS LA 

LDU A,U 
RTS 



JUMP TABLE ADDRESS TO U 

GET PMODE VALUE 

MUL ACCA X2 - 2 BYTES PER ADDRESS 

GET JUMP ADDRESS 



* CONVERT VER COORD (VERBEG) S NOR COORD (HORBEG) INTO 

* ABSOLUTE SCREEN ADDR IN X AND PIXEL MASK IN ACCA. 

L9298 BSR L928F GO GET JUMP ADDRESS 

JMP ,U GO TO IT 



* JUMP 


TABLE 


-- HOR, 


VER COORD CONVERSION 




L929C 


FOB 


L92A6 




PMODE 


L929E 


FOB 


L92C2 




PMODE 1 


L92A0 


FOB 


L92A6 




PMODE 2 


L92A2 


FOB 


L92C2 




PMODE 3 


L92A4 


FOB 


L92A6 




PMODE 4 



* HOR, VER COORD CONVERSION ROUTINE FOR 2 

* COLOR HIRES GRAPHICS MODES 
L92A6 PSHS U,B 



LOB 


HORBYT 


LDA 


VERBEG+1 


MUL 




ADDD 


BEGGRP 


TFR 


D,X 


LOB 


HORBEG+1 


LSRB 




LSRB 




LSRB 




ABX 




LDA 


HORBEG+1 


ANDA 


#$07 


LDU 


#L92DD 


LDA 


A,U 



* HOR, 


VER COORDINATE CONVERSION ROUTINE 


* FOR 


4 COLOR 


HI RES GRAPHICS MODES 


L92C2 


PSHS 


U,B 




LOB 


HORBYT 




LDA 


VERBEG+1 




MUL 






ADDD 


BEGGRP 




TFR 


D,X 




LOB 


HORBEG+1 




LSRB 






LSRB 






ABX 






LDA 


HORBEG+1 




ANDA 


#$03 




LDU 


#L92E5 




LDA 


A,U 




PULS 


B,U,PC 



SAVE REGISTERS 

GET NUMBER BYTES/HOR GRAPHIC ROW 

GET VERTICAL COORDINATE 

CALCULATE VERTICAL BYTE OFFSET 

ADD IN START OF GRAPHIC PAGE 

SAVE TEMP VALUE IN X REG 

GET HORIZONTAL COORDINATE 

* THREE LSRBS EOUALS DIVIDE BY 8 - 

* IN THE TWO COLOR MODE THERE ARE 

* 8 PIXELS/BYTE 
ADD HOR BYTE OFFSET 

GET HORIZONTAL COORDINATE 

*KEEP ONLY BITS 0-2, WHICH CONTAIN THE NUMBER 

*0F THE PIXEL IN THE BYTE 

POINT U TO MASK LOOKUP TABLE 

*GET PIXEL MASK - THE MASK WILL HAVE ONE BIT SET WHICH 

♦CORRESPONDS TO THE PIXEL SELECTED. 

RESTORE REGISTERS 



SAVE REGISTERS 

GET NUMBER BYTES/HOR GRAPHIC ROW 

GET VERTICAL COORDINATE 

CALCULATE VERTICAL OFFSET 

ADD THE START OF GRAPHIC PAGE 

SAVE IN X REGISTER 

GET HORIZONTAL COORDINATE 

TWO LSRBS = DIVIDE BY 4; IN THE 4 

COLOR MODE THERE ARE 4 PIXELS/BYTE 

ADD HORIZONTAL BYTE OFFSET 

GET HORIZONTAL COORDINATE 

*KEEP ONLY BITS 0,1 WHICH CONTAIN THE NUMBER OF THE PIXEL 

*T0 CHANGE (4 COLOR) 

POINT U TO MASK LOOKUP TABLE 

GET THE MASK FOR THE PROPER PIXEL 

RESTORE REGISTERS AND RETURN 



* 2 COLOR MODE PIXEL MASKS 
L92DD FCB $80, $40, $20, $10, $08, $04 

FCB $02, $01 

* 4 COLOR MODE PIXEL MASKS 
L92E5 FCB $C0,$30,$0C ,$03 

* MOVE X REG DOWN ONE GRAPHIC ROW 
L92E9 LOB HORBYT 

ABX 
RTS 

* ENTER W/ABSOLUTE SCREEN POSITION IN X, THE PI 

* MASK IN ACCA - ADJUST X AND ACCA TO THE NEXT 

* PIXEL TO THE RIGHT IN THE TWO COLOR MODE. 
L92ED LSRA 

BCC L92F3 
RORA 

LEAX $01, X 
L92F3 RTS 



* MOVE ABSOLUTE SCREEN ADDRESS OF CURRENT 

* HOR, VER COORD ONE TO RIGHT AND ADJUST 

* THE PIXEL MASK FOR THE 4 COLOR MODE 
L92F4 LSRA 

BCC L92ED 
LDA #$C0 
LEAX $01, X 



GET NUMBER BYTES/HOR ROW 

ADD TO ABSOLUTE SCREEN POSITION 



SHIFT ONE BIT TO RIGHT 
BRANCH IF IN SAME BYTE 
IF YOU HAVE MOVED TO NEXT BYTE, 
AND ADD ONE TO X. 



SET BIT 7 IN ACCA 



SHIFT MASK ONE BIT TO RIGHT 
SHIFT RIGHT AGAIN IF SAME BYTE 
SET PIXEL #3 IF NEW BYTE 
ADD ONE TO ABS SCREEN POSITION 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF EXTENDED BASIC 1.1 
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2497 


92FB 


39 






2498 










2499 










2588 










2581 










2582 


92FC 


BD 


B7 


34 


2583 










2584 


92FF 


18 


8E 


88 BD 


2585 


9383 


CI 


C0 




2586 


9385 


25 


82 




2587 


9387 


C6 


BF 




2588 


9389 


4F 






2589 


938A 


ED 


22 




2518 


938C 


DC 


2B 




2511 


938E 


18 


83 


81 88 


2512 


9312 


25 


83 




2513 


9314 


CC 


88 


FF 


2514 


9317 


ED 


A4 




2515 


9319 


39 






2516 










2517 










2518 










2519 


> 931A 


BD 


92 


FC 


2528 


931D 


CE 


88 


BD 


2521 


9328 


96 


B6 




2522 


9322 


81 


82 




2523 


9324 


24 


86 




2524 


9326 


EC 


42 




2525 


9328 


44 






2526 


9329 


56 






2527 


932A 


ED 


42 




2528 


932C 


96 


B6 




2529 


932E 


81 


84 




2538 


9338 


24 


86 




2531 


9332 


EC 


C4 




2532 


9334 


44 






2533 


9335 


56 






2534 


9336 


ED 


C4 




2535 


9338 


39 






2536 










2537 










2538 


> 9339 


BD 


93 


B2 


2539 


> 933C 


BD 


93 


ID 


2548 


933F 


BD 


92 


98 


2541 


9342 


A4 


84 




2542 


9344 


D6 


B6 




2543 


9346 


56 






2544 


9347 


24 


12 




2545 


9349 


81 


84 




2546 


934B 


25 


84 




2547 


934D 


46 






2548 


934E 


46 






2549 


934F 


28 


F8 




2558 


9351 


4C 






2551 


9352 


48 






2552 


9353 


9B 


CI 




2553 


9355 


44 






2554 


9356 


IF 


89 




2555 


9358 


7E 


B4 


F3 


2556 


935B 


4D 






2557 


935C 


27 


F8 




2558 


935E 


4F 






2559 


935F 


28 


F8 




2568 










2561 










2562 


9361 


86 


81 




2563 


9363 


28 


81 




2564 










2565 










2566 


9365 


4F 






2567 


9366 


97 


C2 




2568 


9368 


BD 


B2 


6A 


2569 


> 936B 


BD 


93 


lA 


2578 


936E 


BD 


95 


81 


2571 










2572 


9371 


BD 


B2 


67 


2573 


9374 


BD 


92 


98 


2574 










2575 










2576 










2577 










2578 










2579 










2588 


9377 


E6 


84 




2581 


9379 


34 


84 




2582 


937B 


IF 


89 




2583 


937D 


43 






2584 


937E 


A4 


84 




2585 










2586 


9388 


D4 


B5 




2587 


9382 


34 


84 




2588 


9384 


AA 


E8 




2589 


9386 


A7 


84 




2598 


9388 


A8 


E8 




2591 


938A 


9A 


DB 




2592 


938C 


97 


DB 





* EVALUATE TWO EXPRESSIONS - PUT THE FIRST 

* VALUE (HOR COORD) IN HORBEG AND THE 

* SECOND (VER COORD) IN VERBEG. 
L92FC JSR LB734 

LDY #HORBEG 

L9383 CMPB #192 

BLO L9389 

LDB #191 
L9389 CLRA 

STD $82, Y 

LDD BINVAL 

CMPD #256 

BLO L9317 

LDD #255 

L9317 STD ,Y 

RTS 



♦EVALUATE TWO EXPRESSIONS FROM THE BASIC LINE - 

*RETURN WITH THE 1ST VALUE IN BINVAL AND THE 2ND IN ACCB 

POINT Y TO TEMP STORAGE LOC 

IS VERT COORD > 191? 

NO 

FORCE VER COORD TO 191 

HIGH ORDER BYTE OF VER COORD 

SAVE VERTICAL COORDINATE 

GET RAW HORIZONTAL COORDINATE 

IS IT WITHIN RANGE? 

YES 

FORCE IT TO 255 IF NOT IN RANGE 

SAVE HORIZONTAL COORDINATE 



NORMALIZE HORIZONTAL AND VERTICAL COORDINATES FOR THE PROPER RHODE 
RETURN NORMALIZED VALUES IN (HORBEG, VERBEG) 



L931A 


JSR 


L92FC 


L931D 


LDU 


#HORBEG 


L9328 


LDA 


PMODE 




CMPA 


#$82 




BCC 


L932C 




LDD 


$82, U 




LSRA 






RORB 






STD 


$82, U 


L932C 


LDA 


PMODE 




CMPA 


#$84 




BCC 


L9338 




LDD 


,u 




LSRA 






RORB 






STD 


,u 


L9338 


RTS 




* PPOINT 






PPOINT 


JSR 


L93B2 




JSR 


L931D 




JSR 


L9298 




ANDA 


,x 




LDB 


PMODE 




RORB 






BCC 


L935B 


L9349 


CMPA 


#$84 




BLO 


L9351 




RORA 






RORA 






BRA 


L9349 


L9351 


INCA 
AS LA 






ADDA 


CSSVAL 




LSRA 




L9356 


TFR 


A,B 




JMP 


LB4F3 


L935B 


TSTA 






BEO 


L9356 




CLRA 






BRA 


L9351 


* PSET 






PSET 


LDA 


#$81 




BRA 


L9366 


* PRESET 






PRESET 


CLRA 




L9366 


STA 


SETFLG 




JSR 


LB26A 




JSR 


L931A 




JSR 


L9581 




JSR 


LB267 




JSR 


L9298 



GO GET HOR S VER COORDINATES 

POINT U TO HOR S VER COORDS 

GET RHODE 

CHECK MODE 

BRANCH IF > 1 

GET THE VERT COORD 

♦DIVIDE ACCD BY TWO SINCE 

*PMODES 8S1 HAVE ONLY 96 VERT BLOCKS 

SAVE NEW VERT COORD 

GET PMODE 

CHECK PMODE 

BRANCH IF PMODE = 4 

GET HOR COORD 

* DIVIDE HORIZONTAL COORDINATE 

* BY 2-PMODES 8,1,2,3 HAVE ONLY 128 HOR I 
SAVE NEW HOR COORD 



EVAL TWO EXPRESSIONS, RETURN VALUES IN (HORBEG, VERBEG) 

NORMALIZE EXPRESSIONS FOR PROPER PMODE 

CONVERT COORDS INTO ABS SCREEN POSITION S PIXEL MASK 

AND PIXEL MASK WITH CONTENTS OF SCREEN 

GET CURRENT PMODE 

SHIFT RIGHT 

BRANCH IF PMODE 8,2,4 (2 COLOR) 

* IS THE ON PIXEL IN THE 2 RIGHTMOST BITS? 
BRANCH IF IT IS 

=SHIFT RIGHT 

=ONE PIXEL 

KEEP CHECKING 

ADD 1 TO COLOR - BASIC USES 1 TO 4, NOT 8 TO 3 

TIMES 2 

ADD COLOR SET (8 OR 8) 

DIVIDE ACCB BY TWO - COLORS RANGE FROM 8 - 8 

♦TRANSFER COLOR INFO INTO ACCB 

♦CONVERT ACCB TO FP NUMBER 

IS 2 COLOR PIXEL ON? 

NO 

* FORCE THE TWO-COLOR ON VALUE TO BE 

* ONE OR FIVE (DEPENDING ON CSS). 



PRESET FLAG 

STORE FLAG 8 = PRESET, 1 = PSET 

SYNTAX CHECK FOR ( 

EVAL HOR S VER COORDS AND NORMALIZE 

♦EVALUATE COLOR - RETURN IN WCOLOR; ALLCOL 

♦WILL BE ONE BYTE WITH ALL PIXELS SET TO THAT COLOR 

SYNTAX CHECK FOR ) 

♦CALCULATE THE ABSOLUTE ADDRESS OF THE 

♦BYTE TO PSET/PRESET - RETURN ADDRESS IN X - THE MASK 

♦OF PIXEL TO CHANGE RETURNED IN ACCA SET A PIXEL ON 

♦SCREEN - ABS POSIT IN X, MASK IN ACCA, COLOR IN ALLCOL 



♦ TURN ON THE PIXEL (POINTED TO BY X, PIXEL MASK IN ACCA) TO THE COLOR 

♦ IN ALLCOL. SET CHGFLG <> 8 IF THE PIXEL COLOR IS CHANGED. 



L9377 


LDB 


,x 




PSHS 


B 




TFR 


A,B 




COMA 






ANDA 


,x 




ANDB 


ALLCOL 




PSHS 


B 




ORA 


,s+ 




STA 


,x 




SUBA 


,s+ 




ORA 


CHGFLG 




STA 


CHGFLG 



IXELS 



GET BYTE FROM THE SCREEN 
SAVE IT ON STACK 
PUT PIXEL MASK IN ACCB 
INVERT PIXEL MASK 

♦ AND WITH SCREEN DATA - KEEP ALL 

♦ EXCEPT THE ONE TO MODIFY 

CONVERT PIXEL IN THE PIXEL MASK TO THE PROPER COLOR 
SAVE IT ON STACK 

OR IT INTO THE REST OF THE PIXELS 
PUT IT ON SCREEN 
SUBTRACT OLD BYTE FROM NEW BYTE; ACCA=8 IF NEW BYTE = OLD BYTE 

OR DIFFERENCE WITH CHANGE FLAG 
SAVE IT - CHGFLG WILL BE = 8 IF THE GRAPHIC BYTE IS UNCHANGED 



EXTENDED BASIC UNRAVELLED II 
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2593 


938E 


39 






2594 










2595 










2596 










2597 










2598 


938F 


9E 


C7 




2599 


9391 


9F 


BD 




2600 


9393 


9E 


C9 




2601 


9395 


9F 


BF 




2602 


9397 


81 


AC 




2603 


9399 


27 


03 




2604 


> 939B 


BD 


93 


B2 


2605 


939E 


C6 


AC 




2606 


93A0 


BD 


B2 


6F 


2607 


93A3 


BD 


B2 


6A 


2608 


93A6 


BD 


B7 


34 


2609 


93A9 


10 


8E 


00 C3 


2610 


93AD 


BD 


93 


03 


2611 


93B0 


20 


06 




2612 


93B2 


BD 


B2 


6A 


2613 


93B5 


BD 


92 


FC 


2614 


93B8 


7E 


B2 


67 


2615 










2616 










2617 


93BB 


81 


89 




2618 


93BD 


10 


27 


F5 FF 


2619 


93C1 


81 


28 




2620 


93C3 


27 


09 




2621 


93C5 


81 


AC 




2622 


93C7 


27 


05 




2623 


93C9 


C6 


40 




2624 


93CB 


BD 


B2 


6F 


2625 


> 93CE 


BD 


93 


8F 


2626 


93D1 


9E 


C3 




2627 


93D3 


9F 


C7 




2628 


93D5 


9E 


C5 




2629 


93D7 


9F 


C9 




2630 


93D9 


BD 


B2 


6D 


2631 


93DC 


81 


BE 




2632 


93DE 


27 


09 




2633 


93E0 


81 


BD 




2634 


93E2 


10 


26 


IE 91 


2635 


93E6 


C6 


01 




2636 


93E8 


86 






2637 


93E9 


5F 






2638 


93EA 


34 


04 




2639 


93EC 


9D 


9F 




2640 


> 93EE 


BD 


94 


20 


2641 


93F1 


35 


04 




2642 


93F3 


D7 


C2 




2643 


93F5 


BD 


95 


9A 


2644 


93F8 


9D 


A5 




2645 


93FA 


10 


27 


00 A3 


2646 


93FE 


BD 


B2 


6D 


2647 


9401 


C6 


42 




2648 


9403 


BD 


B2 


6F 


2649 


9406 


26 


21 




2650 


9408 


8D 


3A 




2651 


940A 


8D 


62 




2652 


940C 


9E 


BD 




2653 


940E 


34 


10 




2654 


9410 


9E 


C3 




2655 


9412 


9F 


BD 




2656 


9414 


8D 


58 




2657 


9416 


35 


10 




2658 


9418 


9F 


BD 




2659 


941A 


9E 


C5 




2660 


941C 


9F 


BF 




2661 


941E 


20 


24 




2662 










2663 


9420 


BD 


93 


ID 


2664 


9423 


CE 


00 


C3 


2665 


9426 


7E 


93 


20 


2666 


9429 


C6 


46 




2667 


942B 


BD 


B2 


6F 


2668 


942E 


20 


04 




2669 


9430 


30 


IF 




2670 


9432 


9F 


BF 




2671 










2672 










2673 


> 9434 


BD 


94 


44 


2674 


9437 


9E 


BF 




2675 


9439 


9C 


C5 




2676 


943B 


27 


06 




2677 


943D 


24 


Fl 




2678 


943F 


30 


01 




2679 


9441 


20 


EF 




2680 


9443 


39 






2681 










2682 










2683 


9444 


9E 


BD 




2684 


9446 


34 


10 




2685 


9448 


BD 


97 


ID 


2686 


944B 


24 


04 




2687 


944D 


9E 


C3 




2688 


944F 


9F 


BD 





RTS 
EVALUATE TWO SETS OF COORDINATES SEPARATED B 
SIGN. PUT 1ST SET OF COORDS AT (HORBEG.VERB 
SET AT (HOREND.VEREND). IF NOTHING BEFORE MI 
(HORDEF.VERDEF) AT (HORBEG, VERBEG) 



L938F 


LDX 


HORDEF 




STX 


HORBEG 




LDX 


VERDEF 




STX 


VERBEG 




CMPA 


#$AC 




BEO 


L939E 




JSR 


L93B2 


L939E 


LDB 


#$AC 




JSR 


LB26F 




JSR 


LB26A 




JSR 


LB734 




LDY 


#HOREND 




JSR 


L9303 




BRA 


L93B8 


L93B2 


JSR 


LB26A 




JSR 


L92FC 


L93B8 


JMP 


LB267 


* LINE 






LINE 


CMPA 


#$89 




LBEO 


L89C0 




CMPA 


#•(• 




BEQ 


L93CE 




CMPA 


#$AC 




BEQ 


L93CE 




LDB 


#•9' 




JSR 


LB26F 


L93CE 


JSR 


L938F 




LDX 


HOREND 




STX 


HORDEF 




LDX 


VEREND 




STX 


VERDEF 




OSR 


SYNCOMMA 




CMPA 


#$BE 




BEQ 


L93E9 




CMPA 


#$BD 




LBNE 


LB277 




LDB 


#$01 


L93E8 


FCB 


SKPILD 


L93E9 


CLRB 






PSHS 


B 




JSR 


GETNCH 




JSR 


L9420 




PULS 


B 




STB 


SETFLG 




JSR 


L959A 




JSR 


GETCCH 




LBEQ 


L94A1 




JSR 


SYNCOMMA 




LDB 


#'B' 




JSR 


LB26F 




BNE 


L9429 




BSR 


L9444 




BSR 


L946E 




LDX 


HORBEG 




PSHS 


X 




LDX 


HOREND 




STX 


HORBEG 




BSR 


L946E 




PULS 


X 




STX 


HORBEG 




LDX 


VEREND 




STX 


VERBEG 




BRA 


L9444 


* NORMALIZE START COORDS IN (HORBEG, VERBEG) S 1 


L9420 


JSR 


L931D 




LDU 


#HOREND 




JMP 


L9320 


L9429 


LDB 


#'F' 




JSR 


LB26F 




BRA 


L9434 


L9430 


LEAX 


$-01, X 


L9432 


STX 


VERBEG 


* DRAW 


A SERIES OF HORIZONTAL LINES FROM VER S' 


L9434 


JSR 


L9444 




LDX 


VERBEG 




CMPX 


VEREND 




BEQ 


L9443 




BCC 


L9430 




LEAX 


$01, X 




BRA 


L9432 


L9443 


RTS 




* DRAW 


A HORIZONTAL LINE FROM HOREND TO HORBEG 


* AT VER COORD VERBEG; COLOR IN ALLCOL 


L9444 


LDX 


HORBEG 




PSHS 


X 




JSR 


L971D 




BCC 


L9451 




LDX 


HOREND 




STX 


HORBEG 



A MINUS 
EG), SECOND 
NUS SIGN, PUT 

GET LAST HORIZ END POINT 

PUT IN START POINT STORAGE LOC 

GET LAST VERT END POINT 

PUT IN START POINT VERT STORAGE LOC 

TOKEN FOR MINUS SIGN 

BRANCH IF NO STARTING COORDINATES GIVEN 

GO GET STARTING COORDINATES 

TOKEN FOR MINUS SIGN 

GO DO A SYNTAX CHECK 

SYNTAX CHECK FOR A ( 

EVALUATE 2 EXPRESSIONS 

TEMP STORAGE LOCATION FOR END COORDINATES OF LINE COMMAND 

GET END POINT COORDS 

CHECK SYNTAX FOR ) 

SYNTAX CHECK FOR ( 

EVALUATE 2 EXPRESSIONS 

SYNTAX CHECK FOR ) AND RETURN 



INPUT TOKEN 
GO DO LINE INPUT COMMAND 
CHECK FOR ( 

GO LOOK FOR START AND END POINTS 
CHECK TOKEN FOR MINUS SIGN 
GO GET START AND END POINTS 
CHECK FOR e SIGN 
DO A SYNTAX CHECK 

GET STARTING AND ENDING COORDINATES 
GET ENDING HORIZ COORDINATE 
PUT IN LAST USED HOR END POINT 
GET ENDING VER COORD 
PUT IN LAST USED VER END POINT 
SYNTAX CHECK FOR COMMA 
PRESET TOKEN? 
YES 
PSET TOKEN? 

SYNTAX ERROR IF NOT PSET OR PRESET 
PSET FLAG 

SKIP ONE BYTE, LOAD ACCA WITH $5F 
PRESET FLAG 
SAVE PSET/PRESET FLAG 
GET ANOTHER CHAR 
NORMALIZE START/END COORDS 
GET PSET/PRESET FLAG 
SAVE IT 

SET ACTIVE COLOR BYTE 
GET ANOTHER CHARACTER 
BRANCH IF NO BOX TO BE DRAWN 
SYNTAX CHECK FOR COMMA 

BOX ? 
GO DO A SYNTAX CHECK FOR A B 
FOUND A B AND SOMETHING FOLLOWS 
DRAW A HORIZ LINE 
DRAW A VERTICAL LINE 
GET HOR START COORD 
SAVE IT ON STACK 

* GET HORIZONTAL END COORDINATE AND 

* PUT THEM IN HORIZONTAL START COORDINATE 
DRAW VERTICAL LINE 

GET THE PREVIOUS HORIZONTAL START COORDINATE 
RESTORE IT 
GET VER END COORD 
PUT INTO START 
DRAW HORIZ LINE 

END COORDS IN (HOREND, VEREND) 
NORMALIZE COORDS IN (HORBEG, VERBEG) 

= NORMALIZE COORDS IN (HOREND, VEREND) 
* 

*G0 DO A SYNTAX CHECK FOR AN F 

FILL THE BOX 
MOVE VER COORD UP ONE 
SAVE NEW VERTICAL START COORDINATE 



DRAW A HORIZ LINE 

GET START VER COORD 

COMPARE TO END VER COORD 

RETURN IF EQUAL 

BRANCH IF START HOR > END HOR 

MOVE HOR COORD DOWN ONE 

KEEP DRAWING LINES 

WASTED BYTE - SHOULD USE L946B INSTEAD 



GET STARTING COORDS 

SAVE EM 

GET ABSOLUTE VALUE OF HOREND - HORBEG (HORIZONTAL COORDINATE) 

BRANCH IF END > START 

* TRANSFER END COORD TO START 
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SAVE DIFFERENCE IN Y 

ADD ONE TO DIFFERENCE - TURN ON STARTING S ENDING COORDS 

GET ABS SCREEN POS TO X AND PIXEL MASK TO ACCA 

GET START COORDS 

RESTORE THEM 

POINT U TO ROUTINE TO MOVE PIXEL POINTERS TO RIGHT 

SAVE PIXEL MASK 

TURN ON PIXEL 

GET OLD PIXEL MASK 

MOVE TO NEXT ONE TO RIGHT 

DEC COUNTER 

LOOP IF NOT DONE 

CLEAN UP STACK 



GET END COORDS 

SAVE THEM 

CALCULATE ABSOLUTE VALUE OF VEREND-VERBEG 

BRANCH IF END COORD > START COORD 

*SHITCH VER COORDS IF END COORD IS TO RIGHT OF START 

LENGTH OF LINE TO Y 

SET BOTH START AND END COORDS 

GET ABSOLUTE SCREEN POS TO X, MASK TO ACCA 

GET END COORD 

RESTORE THEM 

POINT U TO ROUTINE TO MOVE DOWN ONE ROW 

DRAW VERT LINE 



JUMP TABLE OF ADDRESSES OF ROUTINES WHICH WILL MOVE THE 
ABSOLUTE SCREEN ADDRESS POINTER ONE PIXEL TO THE RIGHT. 

PMODE 
PMODE 1 
PMODE 2 
PMODE 3 
PMODE 4 
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POINT TO JUMP TABLE 

GET PMODE VALUE 

X2 

GET JUMP ADDRESS 

POINT U TO ROUTINE TO MOVE ABS POS DOWN ONE ROW 



POINT Y TO INCR VERBEG 

CALCULATE VEREND - VERBEG (VERTICAL DIFFERENCE) 

DRAW A HORIZONTAL LINE IF DELTA V = 

BRANCH IF VER END COORD > VER START COORD 

POINT Y TO DECR VER COORD (VERBEG) 

SAVE DELTA V 

POINT U TO INCR HOR COORD 

CALCULATE HOREND-HORBEG (HOR DIFFERENCE) 

DRAW A VERTICAL LINE IF DELTA H = 

BRANCH IF HOR END COORD > HOR START COORD 

POINT U TO DECR HOR COORD 

COMPARE DELTA H TO DELTA V 

PUT DELTA V IN X 

BRANCH IF DELTA H > DELTA V 

SWAP CHANGE HOR S CHANGE VER ADDRESS 

EXCHANGE DELTA HOR S DELTA VER 

*SAVE THE LARGER OF DELTA V, DELTA H 

*AND THE INCREMENT/DECREMENT ADDRESS 

SAVE WHICHEVER IS LARGER OF DELTA V, DELTA H 

* DIVIDE BY 2, SHIFT ACCD RIGHT ONE BIT 

BRANCH IF ODD NUMBER 

SEE IF INCR OR DECR 

BRANCH IF INCR 

SUBTRACT 1 IF DECREMENT 

♦SAVE SMALLEST DELTA (X) AND INITIAL MINOR COORDINATE 

♦INCREMENT COUNTER WHICH IS 1/2 OF LARGEST DELTA 

POINT U TO PROPER COORDINATE TO SCREEN CONVERSION ROUTINE 



DRAW THE LINE HERE - AT THIS POINT THE STACK HAS THE DRAW DATA ON IT 

1,S=MIN0R COORDINATE INCREMENT COUNTER 

2 3,S=ASS0LUTE VALUE OF THE SMALLEST DELTA COORDINATE 

4 5,S=ABS0LUTE VALUE OF THE LARGEST DELTA COORDINATE 

6 7,S=LARGEST COORDINATE COUNTER (HOW MANY TIMES THROUGH THE DRAW 

LOOP. INITIALLY SET TO ABSOLUTE VALUE OF LARGEST DELTA COORD 
8 9,S=ADDRESS OF THE ROUTINE WHICH WILL INCREMENT OR DECREMENT 

THE LARGEST DELTA COORDINATE 
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CONVERT (X,Y) COORDINATES TO ABSOLUTE SCREEN ADDRESS 

TURN ON A PIXEL 

GET DISTANCE COUNTER 

BRANCH IF LINE IS COMPLETELY DRAWN 

DECR ONE 

SAVE IT 

INCR/DECR COORDINATE-WHICH HAS THE LARGEST DELTA 

GET THE MIHOR COORDINATE INCREMENT COUNTER 

ADD THE SMALLEST DIFFERENCE 
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SAVE NEW MINOR COORDINATE INCREMENT COUNTER 

*SUBTR OUT THE LARGEST DIFFERENCE AND 

♦BRANCH IF RESULT NOT > LARGEST DIFFERENCE 

IF >=, THEN STORE NEW MINOR COORDINATE INCREMENT 

INCREMENT/DECREMENT COORDINATE WHICH HAS THE SMALLEST DELTA 

KEEP GOING 

*CLEAN UP THE STACK AND RETURN 



THESE ROUTINES ARE USED TO INCREMENT OR DECREMENT THE 
HORIZONTAL S VERTICAL COORDINATES. THEY NEED TO BE KEPT 
IN THIS ORDER ( INCR, INCR.DECR.DECR) . 



* INCR HORBEG 
L9506 LDX 

LEAX 

STX 

RTS 

* INCR VERBEG 
L950D LDX 

LEAX 

STX 

RTS 

* DECR HORSES 
L9514 LDX 

LEAX 

STX 

RTS 

* DECR VERBEG 
L951B LDX 

LEAX 

STX 

RTS 



(HOR COORD) 
HORBEG 
$01, X 
HORBEG 

(VER COORD) 
VERBEG 
$01, X 
VERBEG 

(HOR COORD) 
HORBEG 
$-01, X 
HORBEG 

(VER COORD) 
VERBEG 
$-01, X 
VERBEG 



GET COORDINATE 

ADD ONE 

SAVE COORDINATE 



GET COORDINATE 

ADD ONE 

SAVE COORDINATE 



GET COORDINATE 
SUBTRACT ONE 
SAVE COORDINATE 



GET COORDINATE 
SUBTRACT ONE 
SAVE COORDINATE 



GET MAXIMUM VALUE OF HOR/VER COORDINATES 
NORMALIZED FOR PROPER PMODE. RETURN VALUES 
HOR = VD3 VER = VD5 
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* EVALUATE AN 


EXPRESSION AND 


* DEPENDING ON THE PMODE AND 


* RETURN 


COLOR VALUE IN ACCB 
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POINT U TO TEMP STORAGE AREA (VD3) 

MAXIMUM VALUE HORIZONTAL COORD (255) 

SAVE IT 

MAXIMUM VALUE VERTICAL COORD (191) 

SAVE IT 

GO CONVERT THEM TO PROPER PMODE 



CLEAR TO BACKGROUND COLOR IF NO ARGUMENT 

EVALUATE EXPRESSION, CONVERT TO PROPER COLOR CODE 

CONSIDER EACH BYTE AS 4 GROUPS OF 2 BIT SUB-NIBBLES 

MULT BY COLOR 

GET STARTING ADOR 

SET BYTE TO PROPER COLOR 

AT END OF GRAPHIC PAGE? 

NO 



GET BACKGROUND COLOR 



♦CHECK FOR COMMA AND 

♦BRANCH IF FOREGROUND COLOR ARGUMENT MISSING 

EVALUATE FIRST ARGUMENT 

STORE IN FOREGROUND LOCATION 

GET NEXT INPUT CHARACTER 

RETURN IF NONE 

SYNTAX CHECK FOR COMMMA 

EVALUATE LAST ARGUMENT 

STORE IN BACKGROUND COLOR 



CONVERT IT TO A PROPER COLOR CODE 
CSS; ILLEGAL FUNCTION CALL IF > 8 - 
CSS VALUE IN ACCA 

EVALUATE EXPRESSION 

ONLY ALLOW 0-8 
ILLEGAL FUNCTION CALL IF BAD COLOR 

VDG CSS VALUE FOR FIRST COLOR SET 

FIRST OR SECOND COLOR SET? 

BRANCH IF FIRST SET 

VDG CSS VALUE FOR SECOND COLOR SET 

MAKE 5-8 BECOME 1-4 

SAVE VDG CSS VALUE ON THE STACK 

GET PMODE 

4 COLOR OR 2 COLOR 

2 COLOR 

WAS COLOR = 

NO 

IF SO, MAKE IT 4 

CONVERT 1-4 TO 0-3 

PUT VDG CSS VALUE IN ACCA AND RETURN 

CHECK ONLY THE LSB OF COLOR IF IN 2 COLOR MODE 

BRANCH IF ODD - FORCE ACCB TO 3 

FORCE ACCB = IF EVEN 

RETURN 



SET THE CURRENT ACTIVE COLOR AND ALL PIXEL BYTE 
TO FOREGROUND/BACKGROUND COLOR DEPENDING ON 
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960B 


5A 






2964 


960C 


26 


F2 




2965 


960E 


39 






2966 


960F 


C6 


07 




2967 


9611 


8E 


FF 


C6 


2968 


9614 


20 


EA 




2969 


9616 


B6 


FF 


22 


2970 


9619 


84 


F7 




2971 


961B 


9A 


CI 




2972 


961D 


B7 


FF 


22 


2973 


9620 


39 






2974 










2975 










2976 


9621 


81 


2C 





PRESET IF NO EXPRESSION , ) OR 


OTHERWISE EVALUATE THE EXPRESSION 


JSR 


L959A 


JSR 


GETCCH 


BEO 


L9598 


CMPA 


#')' 


BEO 


L9598 


JSR 


SYNCOMMA 


CMPA 


#' ,' 


BEO 


L9598 


JSR 


L955A 


BSR 


L95A2 


JMP 


GETCCH 


E ACTIVE COLOR BYTE AND THE ALL A 


LOB 


FORCOL 


TST 


SETFLG 


BNE 


L95A2 


LOB 


BAKCOL 


STB 


WCOLOR 


LDA 


#$55 


MUL 




STB 


ALLCOL 


RTS 




BNE 


L95CF 



GET THE COLOR OF A BYTE 
CHECK CURRENT INPUT CHARACTER 
BRANCH IF NONE 

* CHECK FOR ) AND BRANCH IF 

* NO MORE ARGUMENTS 
SYNTAX CHECK FOR COMMA 

WAS NEXT CHARACTER A COMMA? 

YES 

EVALUATE EXPRESSION, RETURN COLOR IN ACCB 

TEMP STORE COLOR AND ALL PIXEL BYTE 

CHECK INPUT CHARACTER AND RETURN 



GET FOREGROUND COLOR 

CHECK PSET/PRESET FLAG 

BRANCH IF PSET 

GET BACKGROUND COLOR 

TEMP STORE COLOR 

CONSIDER A BYTE AS 4 PIXELS 

SET COLOR ON ALL 4 PIXEIS 

SAVE BYTE WITH ALL PIXELS TURNED ON 



BRANCH IF GRAPHIC MODE, OTHERWISE SET UP ALPHA GRAPHIC MODE 



THIS CODE WILL RESET THE DISPLAY PAGE REGISTER IN THE 
SAM CHIP TO 2 ($400) AND RESET THE SAM S VDG CONTROL 
REGISTER TO (ALPHA-NUMERICS). IN ADDITION, IT WILL 
RESET THE VDG CONTROL PINS TO ALPHA-GRAPHICS MODE. 



SET UP THE SAM AND VDG TO GRAPHICS MODE 



L95AC 


PSHS 


X,B,A 




LDX 


#SAM+8 




STA 


10, X 




STA 


$08, X 




STA 


$06, X 




STA 


$04, X 




STA 


$02, X 




STA 


$01, X 




STA 


$-02, X 




STA 


$-04, X 




STA 


$-06, X 




STA 


$-08, X 




LDA 


PIAl-f2 




ANDA 


#$07 




STA 


PIAl+2 




PULS 


A,B,X,PC 


L95CF 


PSHS 


X,B,A 




LDA 


PMODE 




ADDA 


#$03 




LDB 


#$10 




MUL 






ORB 


#$80 




ORB 


CSSVAL 




LDA 


PIA1■^2 




ANDA 


#$07 




PSHS 


A 




ORB 


,s+ 




STB 


PIA1■^2 




LDA 


BEGGRP 




LSRA 






JSR 


L960F 




LDA 


PMODE 




ADDA 


#$03 




CMPA 


#$07 




BNE 


L95F7 




DECA 




L95F7 


BSR 


L95FB 




PULS 


A,B,X,PC 


L95FB 


LDB 


#$03 


* ENTER 


WITH 


DATA TO GO 




LDX 


#SAM 


L9600 


RORA 






BCC 


L9607 




STA 


$01, X 




BRA 


L9609 


L9607 


STA 


,x 


L9609 


LEAX 
DECB 


$02, X 




BNE 


L9600 




RTS 




L960F 


LDB 


#$07 




LDX 


#SAM+6 




BRA 


L9600 


L9616 


LDA 


PIAl+2 




ANDA 


#$F7 




ORA 


CSSVAL 




STA 


PIAl+2 




RTS 




* PMODE 






PMOD 


CMPA 


#' ,' 



SAVE REGISTERS 

POINT X TO THE MIDDLE OF THE SAM CNTL REG 



RESET SAM DISPLAY PAGE TO $400 



**** RESET SAM S VDG TO ALPHA-NUMERIC MODE 

GET DATA FROM PIAl, PORT B 

FORCE ALL BITS TO ZERO, KEEP ONLY CSS DATA 

PUT THE VDG INTO ALPHA-GRAPHICS MODE 

RETURN 



GET CURRENT PMODE VALUE 

ADD 3 - NOW 3-7 ONLY 5 OF 8 POSSIBLE MODES USED 

$10 OFFSET BETWEEN PMODES 

GET PMODE VALUES FOR VDG GM0, GMl, GM2 

FORCE BIT 7 HIGH (VDG A/G CONTROL) 

OR IN THE VDG CSS DATA 
GET PIAl, PORT B 
MASK OFF THE VDG CONTROL DATA 
SAVE IT 

OR IT WITH THE VDG VALUES CALCULATED ABOVE 
STORE IT INTO THE PIA 
GET MSB OF START OF GRAPHIC PAGE 
*DIVIDE BY 2 - ACCA CONTAINS HOW MANY 512 BYTE 
*BLOCKS IN STARTING ADDR 
GO SET SAM CONTROL REGISTER 
GET PMODE VALUE 

ADD IN BIAS TO ADJUST TO PMODE THE SAM REGISTER WANTS 
WAS PMODE 4? 
NO 

DECREMENT ACCA IF PMODE 4 (SAME VDG AS PM0DE3) 
SET THE SAM S VDG REGISTER 
RESTORE REGISTERS AND RETURN 

3 BITS IN SAM VDG CONTROL REGISTER 
IN VDG REGISTER IN BOTTOM 3 BITS OF ACCA 

POINT X TO SAM CONTROL REGISTER 

PUT A BIT INTO CARRY FLAG 

BRANCH IF BIT WAS A ZERO 

SET SAM REGISTER BIT 

DO NEXT BIT 

CLEAR SAM REGISTER 

NEXT BIT IN REGISTER 

DONE ALL BITS? 

NO 

7 BITS IN SAM DISPLAY PAGE REGISTER 

POINT X TO SAM DISPLAY PAGE REGISTER 

GO SET THE REGISTER 

GET PIAl, PORT B 

MASK OFF VDG CSS CONTROL BIT 

OR IN CSS COLOR DATA 

RESTORE IT IN PIAl 



CHECK FOR COMMA - FIRST ARGUMENT MAY BE MISSING 



EXTENDED BASIC UNRAVELLED II 
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2977 


9623 


27 


2B 






BEQ 


L9650 




2978 


9625 


BD 


B7 


0B 




JSR 


EVALEXPB 




2979 


9628 


CI 


05 






CMPB 


#$05 




2980 


962A 


24 


41 






BCC 


L966D 




2981 


962C 


96 


BC 






LDA 


GRPRAM 




2982 


962E 


97 


BA 




L962E 


STA 


BEGGRP 




2983 


9630 


58 








ASLB 






2984 


9631 


CE 


97 


07 




LDU 


#L9706+1 




2985 


9634 


AB 


C5 






ADDA 


B,U 




2986 


9636 


91 


19 






CMPA 


TXTTAB 




2987 


9638 


22 


33 






BHI 


L966D 




2988 


963A 


97 


B7 






STA 


ENDGRP 




2989 


963C 


33 


5F 






LEAU 


$-01, U 




299B 


963E 


A6 


C5 






LDA 


B.U 




2991 


9640 


97 


B9 






STA 


HORBYT 




2992 


9642 


54 








LSRB 






2993 


9643 


D7 


B6 






STB 


PMODE 




2994 


9645 


4F 








CLRA 






2995 


9646 


97 


B3 






STA 


BAKCOL 




2996 


9648 


86 


03 






LDA 


#$03 




2997 


964A 


97 


B2 






STA 


FQRCQL 




2998 


964C 


9D 


A5 






JSR 


GETCCH 




2999 


964E 


27 


IC 






BEQ 


L966C 




3000 


9650 


BD 


B7 


38 


L9650 


JSR 


LB738 




3001 


9653 


5D 








TSTB 






3002 


9654 


27 


17 






BEQ 


L966D 




3003 


9656 


5A 








DECB 






3004 


9657 


86 


06 






LDA 


#$06 




3005 


9659 


3D 








MUL 






3006 


965A 


DB 


BC 






ADDB 


GRPRAM 




3007 


965C 


34 


04 






PSHS 


B 




3008 


965E 


DB 


B7 






ADDB 


ENDGRP 




3009 


9660 


D0 


BA 






SUBB 


BEGGRP 




3010 


9662 


Dl 


19 






CMPB 


TXTTAB 




3011 


9664 


22 


07 






BHI 


L966D 




3012 


9666 


D7 


B7 






STB 


ENDGRP 




3013 


9668 


35 


04 






PULS 


B 




3014 


966A 


D7 


BA 






STB 


BEGGRP 




3015 


966C 


39 






L966C 


RTS 






3016 


966D 


7E 


B4 


4A 


L966D 


JMP 


LB44A 




3017 


















3018 










* SCREEN 






3019 


9670 


81 


2C 




SCREEN 


CMPA 


#' ,' 




3020 


9672 


27 


0B 






BEQ 


L967F 




3021 


9674 


BD 


B7 


0B 




JSR 


EVALEXPB 




3022 


9677 


5D 








TSTB 






3023 


9678 


BD 


95 


AA 




JSR 


L95AA 




3024 


967B 


9D 


A5 






JSR 


GETCCH 




3025 


967D 


27 


ED 






BEQ 


L966C 




3026 


967F 


BD 


B7 


38 


L967F 


JSR 


LB738 




3027 


9682 


5D 








TSTB 






3028 


9683 


27 


02 






BEQ 


L9687 




3029 


9685 


C6 


08 






LDB 


#$08 




3030 


9687 


D7 


CI 




L9687 


STB 


CSSVAL 




3031 


9689 


20 


8B 






BRA 


L9616 




3032 


















3033 










* PCLEAR 






3034 


968B 


BD 


B7 


0B 


PCLEAR 


JSR 


EVALEXPB 




3035 


968E 


5D 








TSTB 






3036 


968F 


27 


DC 






BEQ 


L966D 




3037 


9691 


CI 


09 






CMPB 


#$09 




3038 


9693 


24 


D8 






BCC 


L966D 




3039 


9695 


86 


06 






LDA 


#$06 




3040 


9697 


3D 








MUL 






3041 


9698 


DB 


BC 






ADDB 


GRPRAM 




3042 


969A 


IF 


98 






TFR 


B.A 




3043 


969C 


C6 


01 






LDB 


#$01 




3044 


969E 


IF 


02 






TFR 


D,Y 




3045 


96A0 


10 


93 


B7 




CMPD 


ENDGRP 




3046 










* THIS 


CQDE REFLECTS THE INFAMQUS PCLEAR BUG 


3047 


96A3 


25 


C8 






BLQ 


L966D 




3048 


96A5 


93 


19 






SUBD 


TXTTAB 




3049 


96A7 


D3 


IB 






ADDD 


VARTAB 




3050 


96A9 


IF 


01 






TFR 


D.X 




3051 


96AB 


4C 








INCA 






3052 


96AC 


93 


21 






SUBD 


FRETQP 




3053 


96AE 


24 


BD 






BCC 


L966D 




3054 


96B0 


BD 


80 


D0 




JSR 


L80D0 




3055 


96B3 


12 








NOP 






3056 


96B4 


DE 


IB 






LDU 


VARTAB 




3057 


96B6 


9F 


IB 






STX 


VARTAB 




3058 


96B8 


11 


93 


IB 




CMPU 


VARTAB 




3059 


96BB 


24 


17 






BCC 


L96D4 




3060 


96BD 


A6 


C2 




L96BD 


LDA 


,-u 




3061 


96BF 


A7 


82 






STA 


,-x 




3062 


96C1 


11 


93 


19 




CMPU 


TXTTAB 




3063 


96C4 


26 


F7 






BNE 


L96BD 




3064 


96C6 


10 


9F 


19 




STY 


TXTTAB 




3065 


96C9 


6F 


3F 






CLR 


$-01, Y 




3066 


96CB 


BD 


AC 


EF 


L96CB 


JSR 


LACEF 




3067 


96CE 


BD 


AD 


26 




JSR 


LAD26 




3068 


96D1 


7E 


AD 


9E 




JMP 


LAD9E 




3069 


96D4 


DE 


19 




L96D4 


LDU 


TXTTAB 




3070 


96D6 


10 


9F 


19 




STY 


TXTTAB 




3071 


96D9 


6F 


3F 






CLR 


$-01, Y 




3072 


96DB 


A6 


C0 




L96DB 


LDA 


,u+ 





IT IS A COMMA 
EVALUATE EXPRESSION 
> 4? 

YES, ILLEGAL FUNCTION CALL 

GET THE START OF GRAPHIC RAM 

SET START GRAPHIC PAGE 

MULT MODE BY 2 - TABLE HAS 2 BYTES PER ENTRY 

LOOKUP TABLE 

ADD THE AMOUNT OF MEMORY REQUIRED FOR ONE GRAPHIC PAGE 

COMPARE TO MSB OF START OF BASIC PROGRAM 

FC ERROR IF END OF GRAPHIC PAGE > START OF BASIC PROGRAM 
STORE THE END OF GRAPHIC PAGE 
POINT U TO PREVIOUS BYTE IN TABLE 
*GET THE NUMBER OF BYTES/HORIZONTAL LINE 
*AND SAVE IT IN HORBYT 
RESTORE PMODE VALUE 
SAVE IT 

BACKGROUND COLOR 
SET BACKGROUND COLOR TO ZERO 
FOREGROUND COLOR 
SET FOREGROUND COLOR 
IS THERE A STARTING PAGE NUMBER? 
NO 

EVALUATE EXPRESSION 
SET FLAGS 

ILLEGAL FUNCTION CALL - CAN T START ON PAGE ZERO 
BUMP ONE; BASIC STARTS ON PAGE 1, THIS ROUTINE AT 
EACH GRAPHIC PAGE = 6 X 256 (1.5K) 
MULT BY PAGE NUMBER 
ADD IN START OF GRAPHIC RAM 
SAVE TEMP START ADDR 
ADD CURRENT END ADDR 

SUB OUT CURRENT START ADDR - (ADDS THE SIZE OF ONE GRAPHIC PAGE) 
IS IT > CURRENT START OF BASIC PROGRAM 
YES! ILLEGAL FUNCTION CALL 
SAVE AS END OF GRAPHIC PAGE 
GET TEMP START ADOR 
SAVE AS START OF GRAPHIC PAGE 

ILLEGAL FUNCTION CALL' 



CHECK FOR A COMMA 

BRANCH IF COMMA - FIRST ARGUMENT MISSING 

EVALUATE EXPRESSION 

ZERO FLAG SET IF ALPHA, NOT SET IF GRAPHIC SCREEN 

SET UP THE SAM S VDG FOR PROPER GRAPHIC MODE 

GET NEXT CHARACTER 

RETURN IF NOTHING ELSE ON LINE 

CHECK FOR COMMA AND EVALUATE EXPRESSION 

SET FLAGS 

BRANCH IF COLOR SET ZERO 

VALUE FOR COLOR SET ONE 

SAVE IN VDG CSS RAM IMAGE 

GO SET IT INTO PIA 



EVALUATE EXPRESSION, RETURN VALUE IN ACCB 

SET FLAGS 

BRANCH IF PCLEAR0 - FC ERROR 

TRYING TO CLEAR MORE THAN 8 PAGES? 

YES ILLEGAL FUNCTION CALL 

6 X 256 (1.5K) PER GRAPHIC PAGE 

MULT BY NUMBER OF PAGES 

ADD IN START OF GRAPHIC RAM 

MOVE B TO MSB OF REG ACCD 

REG NOW CONTAINS TOP OF PCLEARED SPACE +1 

SAVE IN Y 

COMPARE TOP OF PCLEARED SPACE TO END OF CURRENT GRAPHIC PAGE 

FC ERROR IF TRYING TO CLEAR < END OF GRAPHIC RAM 
SUBTRACT START OF BASIC PROGRAM 
ADD END OF BASIC PROGRAM 

X=TOP OF PCLEARED SPACE + LENGTH OF BASIC PROGRAM 
ADD 256 - LEAVE SOME ROOM FOR THE STACK 
SUBTRACT OUT TOP OF CLEARED SPACE 

FC ERROR - NO ROOM LEFT 
ADJUST BASIC S INPUT POINTER 
SPACE FILLER FOR EXBAS 1.1 
GET END OF BASIC PROGRAM 
STORE NEW END OF BASIC PROGRAM 
COMPARE OLD END TO NEW END 
BRANCH IF OLD END > NEW END 
GET BYTE FROM OLD PROGRAM 
MOVE TO NEW PROGRAM LOCATION 
AT THE BEGINNING OF OLD PROGRAM? 
NO 

SAVE NEW STARTING ADDRESS 
CLEAR BYTE JUST BEFORE PROGRAM 

PUT CORRECT ADDRESSES IN FIRST 2 BYTES OF EACH LINE 
DO PART OF A NEW 
GO BACK TO BASIC S MAIN LOOP 
GET START OF BASIC PROGRAM 
STORE NEW STARTING ADDR 
CLEAR THE BYTE JUST BEFORE PROGRAM 
GET BYTE FROM OLD PROGRAM 
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3073 


96DD 


A7 


A0 


3074 


96DF 


10 


9C IB 


3075 


96E2 


26 


F7 


3076 


96E4 


20 


E5 


3077 








3078 








3079 


96E6 


C6 


IE 


3080 


96E8 


D7 


19 


3081 


96EA 


86 


06 


3082 


96EC 


97 


BC 


3083 


96EE 


97 


BA 


3084 


96F0 


4F 




3085 


96F1 


97 


B6 


3086 


96F3 


86 


10 


3087 


96F5 


97 


B9 


3088 


96F7 


86 


03 


3089 


96F9 


97 


B2 


3090 


96FB 


86 


0C 


3091 


96FD 


97 


B7 


3092 


96FF 


9E 


19 


3093 


9701 


6F 


IF 


3094 


9703 


7E 


AD 19 


3095 








3096 








3097 








3098 








3099 


9706 


10 


06 


3100 


9708 


20 


0C 


3101 


970A 


10 


0C 


3102 


970C 


20 


18 


3103 


970E 


20 


18 


3104 








3105 








3106 


9710 


DC 


C5 


3107 


9712 


93 


BF 


3108 


9714 


24 


3B 


3109 


9716 


34 


01 


3110 


9718 


BD 


9D C3 


3111 


971B 


35 


81 


3112 








3113 


971D 


DC 


C3 


3114 


971F 


93 


BD 


3115 


9721 


20 


Fl 


3116 








3117 








3118 


9723 


8D 


lA 


3119 








3120 


9725 


34 


06 


3121 


9727 


C6 


A5 


3122 


9729 


BD 


B2 6F 


3123 


972C 


8D 


11 


3124 


972E 


35 


10 


3125 


9730 


IF 


03 


3126 


9732 


10 


8E 03 


3127 


9736 


EC 


81 


3128 


9738 


ED 


CI 


3129 


973A 


31 


3F 


3130 


973C 


26 


F8 


3131 


973E 


39 




3132 








3133 


973F 


BD 


B7 0B 


3134 


9742 


5D 




3135 


9743 


27 


0D 


3136 








3137 








3138 








3139 


9745 


Dl 


19 


3140 


9747 


22 


09 


3141 


9749 


5A 




3142 








3143 


974A 


86 


06 


3144 


974C 


3D 




3145 


974D 


DB 


BC 


3146 








3147 


974F 


IE 


89 


3148 


9751 


39 




3149 


9752 


7E 


B4 4A 


3150 








3151 








3152 


9755 


5F 




3153 


9756 


20 


02 


3154 








3155 








3156 


9758 


C6 


01 


3157 


975A 


D7 


D8 


3158 


975C 


BD 


01 A0 


3159 


975F 


81 


40 


3160 


9761 


26 


02 


3161 


9763 


9D 


9F 


3162 


9765 


BD 


93 8F 


3163 








3164 


9768 


BD 


B2 6D 


3165 


976B 


BD 


98 CC 


3166 


976E 


IF 


10 


3167 


9770 


EE 


84 


3168 


9772 


33 


5E 





STA 


,v+ 




CMPY 


VARTAB 




BNE 


L96DB 




BRA 


L96CB 


* INITIALIZATION ROUTINE FOR EXBAS 


L96E6 


LDB 


#$1E 




STB 


TXTTAB 




LDA 


#$06 


L96EC 


STA 


GRPRAM 




STA 


BEGGRP 




CLRA 






STA 


PMODE 




LDA 


#$10 




STA 


HORBYT 




LDA 


#$03 




STA 


FORCOL 




LDA 


#$0C 




STA 


ENDGRP 




LDX 


TXTTAB 




CLR 


$-01, X 




JMP 


LAD19 



MOVE TO NEW PROG LOCATION 

AT END OF OLD PROGRAM? 

NO 

GO RESET SOME POINTERS 



GRAPHICS VARIABLES 



* SET START OF BASIC PROG TO 1E00 

=CONSTANT OFFSET OF $600 

START OF GRAPHICS PAGE TO $600 

PMODE = 

SET PMODE TO 

16 BYTES/HOR GRAPHIC ROW 

SAVE IT 

SET FOREGROUND COLOR TO 3 

SET FOREGROUND COLOR TO 3 

* SET END OF GRAPHICS PAGE TO $C00 
GET START OF PROGRAM 

CLEAR ONE BYTE JUST BEFORE PROGRAM 
GO DO A NEW 



TABLE OF HOW MANY BYTES/GRAPHIC ROW AND HOW MUCH RAM 
FOR ONE HI RES SCREEN FOR THE PMODES. ROWS FIRST, 
BYTES (IN 256 BYTE BLOCKS) SECOND. 

PMODE 
PMODE 1 
PMODE 2 
PMODE 3 
PMODE 4 



L9706 


FCB 


$10, $06 


L9708 


FCB 


$20,$0C 


L970A 


FCB 


$10,$0C 


L970C 


FCB 


$20, $18 


L970E 


FCB 


$20, $18 


* CALC 


ABSCVEREND - VERBEG) 


L9710 


LDD 


VEREND 




SUBD 


VERBEG 


L9714 


BCC 


L9751 




PSHS 


CC 




JSR 


L9DC3 




PULS 


CC,PC 


* CALC 


ABSCHOREND - HORBEG) 


L971D 


LDD 


HOREND 




SUBD 


HORBEG 




BRA 


L9714 


* PCOPY 




PCOPY 


BSR 


L973F 




PSHS 


B,A 




LDB 


#$A5 




JSR 


LB26F 




BSR 


L973F 




PULS 


X 




TFR 


D,U 




LDY 


#$300 


L9736 


LDD 


,x++ 




STD 


,u++ 




LEAY 


$-01, Y 




BNE 


L9736 




RTS 




L973F 


JSR 
TSTB 


EVALEXPB 




BEO 


L9752 



GET VERTICAL ENDING ADDRESS 

SUBTRACT OUT VERTICAL BEGINNING ADDRESS 

RETURN IF END >= START 

SAVE STATUS (WHICH COORDINATE IS GREATER) 

NEGATE ACCD IF START COORD > END COORD 

RESTORE STATUS AND RETURN 

GET HORIZONTAL END COORD 

SUB OUT HORIZONTAL START COORD 

GET ABSOLUTE VALUE 



•EVALUATE SOURCE PAGE NUMBER AND RETURN MSB OF 

♦ADDRESS OF START OF PAGE IN ACCD 

SAVE PAGE 1 OFFSET 

TOKEN FOR TO 

SYNTAX CHECK FOR TO 

EVALUATE PAGE NUMBER 

SET ADDRESS OF SOURCE PAGE TO X 

ADDRESS OF DESTINATION PAGE TO U 

MOVE $300 PAIRS OF BYTES (ONE GRAPHIC PAGE) 

GET TWO BYTES FROM SOURCE 

PUT INTO DESTINATION PAGE 

DECREMENT COUNTER 

NOT DONE YET 



EVALUATE EXPRESSION 

PAGE ZERO? 

YES - ILLEGAL FUNCTION CALL 

THIS IS A FLAKEY ERROR CHECK - IT WILL LET YOU PCOPY OVER 

THE TOP OF THE BASIC PROGRAM IN SOME INSTANCES. 

CMPB TXTTAB IS PAGE NUMBER > MSB OF START ADDR OF BASIC PROG? 

FC ERROR IF SO - BAD ERROR CHECK 
*BUMP PAGE NUMBER DOWN 1, BASIC STARTS AT 1, THIS 
♦ROUTINE STARTS AT ZERO 
6*256 (1.5K) PER GRAPHIC PAGE 
GET OFFSET OF THIS PAGE NUMBER 
*GET START OF GRAPHIC RAM- ACCB NOW CONTAINS 
*MSB OF ADDRESS OF THIS PAGE 
NON ACCD HAS ADDRESS OF PAGE START 





BHI 


L9752 




DECB 




* 








LDA 


#$06 




MUL 






ADDB 


GRPRAM 




EXG 


A,B 


L9751 


RTS 




L9752 


JMP 


LB44A 


* GET 






GET 


CLRB 






BRA 


L975A 


* PUT 






PUT 


LDB 


#$01 


L975A 


STB 


VD8 




JSR 


RVEC22 




CM PA 


#■«■ 




BNE 


L9765 




JSR 


GETNCH 


L9765 


JSR 


L938F 




JSR 


SYNCOMMA 




JSR 


L98CC 




TFR 


X,D 




LOU 


,x 




LEAU 


$-02, U 



ILLEGAL FUNCTION CALL 



GET FLAG 
THIS SHOULD BE FCB SKP2 



IT WOULD SAVE A BYTE 



PUT FLAG 
SAVE GET/PUT FLAG 
HOOK INTO RAM 
CHECK FOR e SIGN 
NO e SIGN 

GO GET NEXT INPUT CHARACTER 

GO EVALUATE START AND END POINTS - STORE START AT 
(HORBEG, VERSEG), END AT (HOREND, VEREND) 
SYNTAX CHECK FOR COMMA 
GET POINTER TO ARRAY DESCRIPTOR 
SAVE DESCRIPTOR -^ 2 IN ACCD 
SAVE OFFSET TO NEXT ARRAY IN U 
POINT U TO START OF DESCRIPTOR 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF EXTENDED BASIC 1.1 



ORIGINlSPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



3169 


9774 


33 


CB 






LEAU 


D,U 


3178 


9776 


DF 


Dl 






STU 


VDl 


3171 


9778 


30 


02 






LEAX 


$02, X 


3172 


977A 


E6 


84 






LDB 


,x 


3173 


977C 


58 








ASLB 




3174 


977D 


3A 








ABX 




3175 


977E 


9F 


CF 






STX 


VCF 


3176 


9780 


96 


06 






LDA 


VALTYP 


3177 


9782 


26 


CE 






BNE 


L9752 


3178 


9784 


0F 


D4 






CLR 


VD4 


3179 


9786 


9D 


A5 






JSR 


GETCCH 


3180 


9788 


27 


2D 






BED 


L97B7 


3181 


978A 


03 


D4 






COM 


VD4 


3182 


978C 


BD 


B2 


6D 




JSR 


SYNCOMMA 


3183 


978F 


0D 


D8 






TST 


VD8 


3184 


9791 


26 


07 






BNE 


L979A 


3185 


9793 


C6 


47 






LDB 


#'G' 


3186 


9795 


BD 


B2 


6F 




JSR 


LB26F 


3187 


9798 


20 


30 






BRA 


L97CA 


3188 


979A 


C6 


05 




L979A 


LDB 


#$05 


3189 


979C 


8E 


98 


39 




LDX 


#L9839 


319B 


979F 


EE 


81 




L979F 


LOU 


,X++ 


3191 


97A1 


10 


AE 


81 




LDY 


,X++ 


3192 


97A4 


Al 


80 






CMPA 


,x+ 


3193 


97A6 


27 


06 






BEO 


L97AE 


3194 


97A8 


5A 








DECB 




3195 


97A9 


26 


F4 






BNE 


L979F 


3196 


97AB 


7E 


B2 


77 




JMP 


LB277 


3197 


97AE 


10 


9F 


D5 


L97AE 


STY 


VD5 


3198 


97B1 


DF 


D9 






STU 


VD9 


3199 


97B3 


9D 


9F 






JSR 


GETNCH 


32BB 


97B5 


20 


13 






BRA 


L97CA 


32B1 
















3202 










* NO G 


OPTION OR ACTION SPECIFIED 


3203 


97B7 


C6 


F8 




L97B7 


LDB 


#$F8 


3204 


97B9 


96 


B6 






LDA 


PMODE 


3205 


97BB 


46 








RORA 




3206 


97BC 


24 


02 






BCC 


L97C0 


3207 


97BE 


C6 


FC 






LDB 


#$FC 


3208 


97C0 


IF 


98 




L97C0 


TFR 


B,A 


3209 


97C2 


D4 


BE 






ANDB 


HORBEG+1 


3210 


97C4 


D7 


BE 






STB 


HORBEG+1 


3211 


97C6 


94 


C4 






ANDA 


HOREND+1 


3212 


97C8 


97 


C4 






STA 


HOREND+1 


3213 


97CA 


BD 


97 


ID 


L97CA 


JSR 


L971D 


3214 


97CD 


24 


04 






BCC 


L97D3 


3215 


97CF 


9E 


C3 






LDX 


HOREND 


3216 


97D1 


9F 


BD 






STX 


HORBEG 


3217 


97D3 


DD 


C3 




L97D3 


STD 


HOREND 


3218 


97D5 


BD 


97 


10 




JSR 


L9710 


3219 


97D8 


24 


04 






BCC 


L97DE 


3220 


97DA 


9E 


C5 






LDX 


VEREND 


3221 


97DC 


9F 


BF 






STX 


VERBEG 


3222 


97DE 


DD 


C5 




L97DE 


STD 


VEREND 


3223 


97E0 


96 


B6 






LDA 


PMODE 


3224 


97E2 


46 








RORA 




3225 


97E3 


DC 


C3 






LDD 


HOREND 


3226 


97E5 


24 


04 






BCC 


L97EB 


3227 


97E7 


D3 


C3 






ADDD 


HOREND 


3228 


97E9 


DD 


C3 






STD 


HOREND 


3229 


97EB 


BD 


94 


20 


L97EB 


JSR 


L9420 


3230 


97EE 


DC 


C3 






LDD 


HOREND 


3231 


97F0 


9E 


C5 






LDX 


VEREND 


3232 


97F2 


30 


01 






LEAX 


$01, X 


3233 


97F4 


9F 


C5 






STX 


VEREND 


3234 


97F6 


0D 


D4 






TST 


VD4 


3235 


97F8 


26 


58 






BNE 


L9852 


3236 


97FA 


44 








LSRA 




3237 


97FB 


56 








RORB 




3238 


97FC 


44 








LSRA 




3239 


97FD 


56 








RORB 




3240 


97FE 


44 








LSRA 




3241 


97FF 


56 








RORB 




3242 


9800 


C3 


00 


01 




ADDD 


#1 


3243 


9803 


DD 


C3 






STD 


HOREND 


3244 


9805 


BD 


92 


98 




JSR 


L9298 


3245 
















3246 


9808 


D6 


C4 




L9808 


LDB 


HOREND+1 


3247 


980A 


34 


10 






PSHS 


X 


3248 


980C 


0D 


D8 




L980C 


TST 


VD8 


3249 


980E 


27 


21 






BEO 


L9831 


3250 


9810 


8D 


11 






BSR 


L9823 


3251 


9812 


A6 


C4 






LDA 


,u 


3252 


9814 


A7 


80 






STA 


,x+ 


3253 


9816 


5A 






L9816 


DECB 




3254 


9817 


26 


F3 






BNE 


L980C 


3255 


9819 


35 


10 






PULS 


X 


3256 


981B 


BD 


92 


E9 




JSR 


L92E9 


3257 


981E 


0A 


C6 






DEC 


VEREND+1 


3258 


9820 


26 


E6 






BNE 


L9808 


3259 


9822 


39 






L9822 


RTS 




3260 
















3261 


9823 


DE 


CF 




L9823 


LDU 


VCF 


3262 


9825 


33 


41 






LEAU 


$01, U 


3263 


9827 


DF 


CF 






STU 


VCF 


3264 


9829 


11 


93 


Dl 




CMPU 


VDl 



POINT U TO END OF ARRAY 

SAVE END OF DATA (END OF ARRAY) 

POINT X TO NUMBER OF DIMENSIONS AND 

GET NUMBER DIMENSIONS IN ACCB 

TIMES 2 - 2 BYTES/DIMENSION 

POINT X TO START OF ARRAY DATA 

SAVE START OF DATA (START OF ARRAY DATA) 

CHECK VARIABLE TYPE 

FC ERROR IF STRING VARIABLE 
GET/PUT GRAPHIC/ACTION FLAG 
GET CURRENT INPUT CHAR 
BRANCH IF END OF LINE 
TOGGLE GET/PUT GRAPHIC/ACTION FLAG 
SYNTAX CHECK FOR COMMA 
CHECK GET/PUT FLAG 
BRANCH IF PUT 

CHECK FOR FULL GRAPHIC OPTION 
DO A SYNTAX CHECK FOR A G 
SKIP AROUND THE NO G OPTION CODE 
FIVE LEGAL TOKENS AT END OF PUT 
POINT X TO LOOK UP TABLE 
GET CLEAR BIT ACTION ROUTINE ADDRESS 
GET SET BIT ACTION ROUTINE ADDRESS 
CHECK FOR ONE OF THE FIVE LEGAL TOKENS 
FOUND ONE 
CHECKED ALL FIVE? 
NO - KEEP GOING 

SYNTAX ERROR IF TOKEN NOT FOUND 
ARRAY SET BIT ACTION ROUTINE ADDRESS 
ARRAY CLEAR BIT ACTION ROUTINE ADDRESS 
GET INPUT CHAR FROM BASIC 
SKIP AROUND THE NO G OPTION CODE 

INPUT LINE 
BOTTOM 3 BITS MASK (8 PIXELS/BYTE) 
GET CURRENT PMODE 
BIT TO CARRY 

BRANCH IF PMODE 0,2,4 (2 COLOR) 

BOTTOM 2 BITS MASK (4 COLOR MODE - 4 PIXELS/BYTE) 
SAVE ACCB IN ACCA 

* MASK THE PIXEL COUNTER (BITS 0,1= 

* 4 COLOR, BITS 0-2=2 COLOR) BITS OFF 

* THE HORIZONTAL DIFFERENCE 

CALC HORIZ DIFFERENCE ABS(HOREND-HORBEG) 
BRANCH IF END > START 

* MAKE START = END IF 

* START > END 

SAVE HORIZ DIFFERENCE 

CALC VERT DIFFERENCE ABS ( VEREND-VERBEG) 

BRANCH IF END > START 

* MAKE START = END IF 

* START > END 

SAVE VERT DIFFERENCE 

* GET PMODE BIT 

* TO THE CARRY FLAG 
GET HORIZ DIFFERENCE 

BRANCH IF PMODE = 0,2,4(2 COLOR) 

* DOUBLE HORIZ DIFF - 2X AS MANY BYTES FOR 

* NUMBER OF PIXELS IN PMODES 1,3 
NORMALIZE DIFFERENCES 

GET HORIZ DIFFERENCE 



* ADD 1 TO VERT DIFFERENCE 

= CHECK FOR G OPTION OR GET ACTION 

= AND BRANCH IF GIVEN 



* DIVIDE HORIZONTAL DIFFERENCE BY 8 

ADD ONE TO OUOTIENT 

SAVE NEW HOR DIFFERENCE 

♦CONVERT (HORBEG, VERSEG) INTO ABSOLUTE SCREEN 

*POS (X) AND PIXEL MASK (ACCA) 

GET HORIZ DIFFERENCE 

SAVE SCREEN POSITION 

CHECK THE GET/PUT FLAG 

BRANCH IF GET 

INCREMENT ARRAY DATA POINTER 

GET DATA FROM ARRAY 

PUT IT ON THE SCREEN 

DECREMENT HORIZ DIFFERENCE 

BRANCH IF NOT AT END OF HORIZ LINE 

GET SCREEN POSITION BACK 

MOVE ABS POSITION DOWN ONE ROW 

DECREMENT VERTICAL DIFFERENCE 

BRANCH IF NOT DONE 



* ADD ONE TO CURRENT ARRAY DATA POINTER 
COMPARE TO END OF DATA 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF EXTENDED BASIC 1.1 



ORIGINlSPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



3265 


982C 


26 


F4 




3266 


982E 


7E 


B4 


4A 


3267 










3268 


9831 


A6 


80 




3269 


9833 


8D 


EE 




327B 


9835 


A7 


C4 




3271 


9837 


20 


DD 




3272 










3273 


9839 


98 


94 


98 9B 


3274 


983D 


BD 






3275 


983E 


98 


9B 


98 94 


3276 


9842 


BE 






3277 


9843 


98 


Bl 


98 9B 


3278 


9847 


Bl 






3279 


9848 


98 


94 


98 Bl 


328B 


984C 


B0 






3281 


984D 


98 


Al 


98 Al 


3282 


9851 


A8 






3283 










3284 










3285 


9852 


C3 


00 


01 


3286 


9855 


DD 


C3 




3287 


9857 


96 


D8 




3288 


9859 


26 


09 




3289 


985B 


DE 


Dl 




3290 


985D 


A7 


C2 




3291 


985F 


11 


93 


CF 


3292 


9862 


22 


F9 




3293 


9864 


BD 


92 


98 


3294 










3295 


9867 


D6 


B6 




3296 


9869 


56 






3297 


986A 


24 


02 




3298 


986C 


84 


AA 




3299 


986E 


C6 


01 




3300 


9870 


10 


9E 


CF 


3301 


9873 


34 


12 




3302 


9875 


DE 


C3 




3303 


9877 


34 


42 




3304 


9879 


54 






3305 


987A 


24 


08 




3306 


987C 


56 






3307 


987D 


31 


21 




3308 


987F 


10 


9C 


Dl 


3309 


9882 


27 


AA 




3310 


9884 


0D 


D8 




3311 


9886 


27 


IF 




3312 


9888 


E5 


A4 




3313 


988A 


27 


04 




3314 


988C 


6E 


9F 


00 D5 


3315 


9890 


6E 


9F 


00 D9 


3316 


9894 


43 






3317 


9895 


A4 


84 




3318 


9897 


A7 


84 




3319 


9899 


20 


16 




3320 


989B 


AA 


84 




3321 


989D 


A7 


84 




3322 


989F 


20 


10 




3323 


98A1 


A8 


84 




3324 


98A3 


A7 


84 




3325 


98A5 


20 


0A 




3326 


98A7 


A5 


84 




3327 


98A9 


27 


06 




3328 


98AB 


IF 


98 




3329 


98AD 


AA 


A4 




3330 


98AF 


A7 


A4 




3331 


98B1 


35 


42 




3332 


98B3 


BD 


92 


ED 


3333 


98B6 


33 


5F 




3334 


98B8 


11 


93 


8A 


3335 


98BB 


26 


BA 




3336 


98BD 


AE 


61 




3337 


98BF 


96 


B9 




3338 


98C1 


30 


86 




3339 


98C3 


35 


02 




3340 


98C5 


32 


62 




3341 


98C7 


0A 


C6 




3342 


98C9 


26 


A8 




3343 


98CB 


39 






3344 










3345 


98CC 


BD 


B3 


57 


3346 


98CF 


E6 


82 




3347 


98D1 


A6 


82 




3348 


98D3 


IF 


03 




3349 


98D5 


9E 


ID 




3350 


98D7 


9C 


IF 




3351 


98D9 


10 


27 


IB 6D 


3352 


98DD 


11 


A3 


84 


3353 


98E0 


27 


06 




3354 


98E2 


EC 


02 




3355 


98E4 


30 


SB 




3356 


98E6 


20 


EF 




3357 


98E8 


30 


02 




3358 


98EA 


39 






3359 


98EB 


39 






3360 













BNE 


L9822 




L982E 


JMP 


LB44A 




L9831 


LDA 


,x+ 






BSR 


L9823 






STA 


,u 






BRA 


L9816 




L9839 


FDB 


L9894. 


,L989B 


L983D 


FCB 


$BD 




L983E 


FDB 


L989B. 


,L9894 


L9842 


FCB 


$BE 




L9843 


FDB 


L98B1. 


,L989B 


L9847 


FCB 


$B1 




L9848 


FDB 


L9894. 


,L98B1 


L984C 


FCB 


$B0 




L984D 


FDB 


L98A1. 


,L98A1 


L9851 


FCB 


$A8 





* GET/PUT WITH 'G' 
L9852 ADDD #1 



OPTION SPECIFIED 



L986E 
L9873 
L9877 



L9890 
L9894 



STD 
LDA 
BNE 
LDU 
STA 



LDB 

RORB 

BCC 

ANDA 

LDB 

LDY 

PSHS 

LDU 

PSHS 

LSRB 

BCC 

RORB 

LEAY 

CMPY 

BEQ 

TST 

BEO 

BITB 

BEO 

JMP 

JMP 

COMA 

ANDA 

STA 

BRA 

ORA 

STA 

BRA 

EORA 

STA 

BRA 

BITA 

BEO 

TFR 

ORA 

STA 

PULS 

JSR 

LEAU 

CMPU 

BNE 

LDX 

LDA 

LEAX 

PULS 

LEAS 

DEC 

BNE 

RTS 



JSR 
LDB 
LDA 
TFR 
LDX 



HOREND 

VD8 

L9864 

VDl 

,-U 



CMPU VCF 
BHI L985D 
JSR L9298 



PMODE 

L986E 

#$AA 

#$01 

VCF 

X,A 

HOREND 

U,A 

L9884 

$01, Y 

VDl 

L982E 

VD8 

L98A7 

,Y 

L9890 

[VD5] 

[VD9] 

,X 

,X 

L98B1 

,X 

,X 

L98B1 

,X 

,X 

L98B1 

,X 

L98B1 

B,A 



A.U 

L92ED 

$-01, U 

ZERO 

L9877 

$01, S 

HORBYT 

A,X 

A 

$02, S 

VEREND+1 

L9873 



L98E8 
L98EB 



LB357 

,-X 

,-X 

D,U 

ARYTAB 
CMPX ARYEND 
LBEO LB44A 
CMPU ,X 
BEQ L98E8 
LDD $02, X 
LEAX D,X 
BRA L98D7 
LEAX $02, X 
RTS 
RTS 



RETURN IF NOT AT END 
ILLEGAL FUNCTION CALL 

GET DATA FROM SCREEN 
INCREMENT ARRAY DATA POINTER 
STORE IN ARRAY 
KEEP LOOPING TILL DONE 



TOKEN FOR PSET 

TOKEN FOR PRESET 

TOKEN FOR OR 

TOKEN FOR AND 

TOKEN FOR NOT 



ADD ONE TO HORIZ DIFFERENCE 

AND SAVE IT 

♦CHECK GET/PUT FLAG AND 

♦BRANCH IF PUT 

GET END OF ARRAYS 

*THIS CODE WILL 

*ZERO OUT THE ENTIRE 

*'GET' ARRAY 

=CONVERT (HORBEG,VERBEG) INTO ABSOLUTE SCREEN POSITION 

=(X) AND PIXEL MASK (ACCA) 

GET CURRENT PMODE 

BIT TO CARRY 

BRANCH IF PMODE 0,2,4 (2 COLOR) 

USE $AA AS THE PIXEL MASK IN 4 COLOR MODE 

INITIALIZE SHIFT CTR 

POINT Y TO ARRAY DATA 

SAVE PIXEL MASK (ACCA) AND ABS SCRN POS (X) ON STACK 

GET THE HORIZONTAL DIFFERENCE 

SAVE PIXEL MASK AND HORIZ DIFF 

SHIFT BIT CTR RIGHT 

BRANCH IF ALL 8 SHIFTS NOT DONE 

SHIFT CARRY BACK INTO ACCB 

INCREMENT ARRAY DATA POINTER 

COMPARE TO END OF ARRAY 

FC ERROR IF AT END 
CHECK THE GET/PUT FLAG AND 
BRANCH IF GET 
TEST A BIT IN ARRAY DATA 
BRANCH IF ZERO 

JUMP TO ACTION ROUTINE FOR ARRAY BIT SET 
JUMP TO ACTION ROUTINE FOR ARRAY BIT CLEAR 
♦MASK SOURCE DATA 
*OFF OF SCREEN DATA 
SAVE TO SCREEN 

OR SOURCE DATA WITH SCREEN 
SAVE TO SCREEN 

INVERT THE PIXEL 
SAVE TO SCREEN 

TEST THE PIXEL 

BRANCH IF IT IS OFF 

PUT SHIFT CTR IN ACCA 

TURN ON PROPER BIT IN 

THE ARRAY DATA 

RESTORE PIXEL MASK AND HOR DIFF 

MOVE SCRN POS S PIXEL MASK ONE TO RIGHT (TWO COLOR MODE) 

* DECR HORIZ DIFFERENCE AND 

* BRANCH IF NOT ZERO 

GET ABS SCRN POS FROM STACK 
GET NUMBER BYTES/GRAPHIC ROW 
MOVE SCRN POS DOWN ONE ROW 
PULL PIXEL MASK OFF THE STACK 
GET X OFF THE STACK 
DECR VERT ROW CTR 
BRANCH IF NOT DONE 
RETURN FROM GET/PUT COMMAND 

EVAL ALPHA EXPR, RETURN DESCRIPTOR PTR IN X 

♦STRIP OFF THE VARIABLE 

*NAME (2 ALPHA-NUMERIC CHARACTERS) AND 

♦STORE THEM IN U 

GET START OF ARRAYS 

COMPARE TO END OF ARRAYS 

FC ERROR IF UNDEFINED ARRAY 
COMPARE TARGET NAME TO ARRAY NAME 
RETURN IF CORRECT ARRAY FOUND 

* GET OFFSET TO NEXT ARRAY AND 

* ADD TO POINTER 

KEEP SEARCHING FOR MATCH 

MOVE POINTER TO OFFSET TO NEXT ARRAY 

WASTED BYTE 



EXTENDED BASIC UNRAVELLED II 
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ORIGINlSPECTRAL ASSOC 
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3361 










3362 


98EC 


81 


40 




3363 


98EE 


26 


02 




3364 


98F0 


9D 


9F 




3365 


98F2 


BD 


93 


B2 


3366 










3367 


98F5 


BD 


93 


ID 


3368 


98F8 


86 


01 




3369 


98FA 


97 


C2 




337B 


98FC 


BD 


95 


81 


3371 


98FF 


DC 


B4 




3372 


9901 


34 


06 




3373 


9903 


9D 


A5 




3374 


9905 


27 


03 




3375 










3376 


9907 


BD 


95 


81 


3377 


990A 


96 


B5 




3378 


990C 


97 


D8 




3379 


990E 


35 


06 




3380 


9910 


DD 


B4 




3381 


9912 


4F 






3382 


9913 


34 


56 




3383 










3384 










3385 


9915 


BD 


95 


22 


3386 


9918 


BD 


92 


8F 


3387 










3388 










3389 


991B 


DF 


D9 




339B 


991D 


BD 


99 


DF 


3391 


9920 


27 


0F 




3392 


9922 


BD 


99 


CB 


3393 


9925 


86 


01 




3394 


9927 


97 


D7 




3395 


9929 


BD 


99 


BA 


3396 


992C 


00 


D7 




3397 


992E 


BD 


99 


BA 


3398 


9931 


10 


DF 


DC 


3399 


9934 


0D 


DB 




340B 


9936 


26 


03 




34B1 


9938 


10 


DE 


DC 


3402 


993B 


35 


56 




3403 


993D 


0F 


DB 




3404 


993F 


10 


DF 


DC 


3405 


9942 


30 


01 




3406 


9944 


9F 


BD 




3407 


9946 


DF 


Dl 




3408 


9948 


97 


D7 




3409 


994A 


27 


9F 




3410 


994C 


2B 


06 




3411 










3412 


994E 


5C 






3413 


994F 


Dl 


D6 




3414 


9951 


23 


05 




3415 


9953 


5F 






3416 


9954 


5D 






3417 


9955 


27 


DD 




3418 










3419 










3420 


9957 


5A 






3421 










3422 


9958 


D7 


C0 




3423 


995A 


BD 


99 


DF 


3424 


995D 


27 


0F 




3425 


995F 


10 


83 


00 03 


3426 










3427 










3428 










3429 










3430 


9963 


25 


04 




3431 


9965 


30 


IE 




3432 


9967 


8D 


38 




3433 










3434 


> 9969 


BD 


99 


CB 


3435 


996C 


8D 


4C 




3436 










3437 










3438 










3439 










3440 










3441 


996E 


43 






3442 


996F 


53 






3443 


9970 


D3 


Dl 




3444 


9972 


DD 


Dl 




3445 


9974 


2F 


16 




3446 


9976 


BD 


95 


06 


3447 


9979 


BD 


9A 


12 


3448 


997C 


26 


05 




3449 


997E 


CC 


FF 


FF 


3450 


9981 


20 


ED 




3451 


9983 


BD 


95 


14 


3452 


9986 


8D 


3E 




3453 


9988 


8D 


5E 




3454 


998A 


20 


E0 




3455 










3456 











* PAINT 






PAINT 


CMPA 


#'6' 




BNE 


L98F2 




JSR 


GETNCH 


L98F2 


JSR 


L93B2 




JSR 


L931D 




LDA 


#$01 




STA 


SETFLG 




JSR 


L9581 




LDD 


WCOLOR 




PSHS 


B.A 




JSR 


GETCCH 




BEQ 


L990A 




JSR 


L9581 


L990A 


LDA 


ALLCOL 




STA 


VD8 




PULS 


A,B 




STD 


WCOLOR 




CLRA 




* 


PSHS 


U,X,B,A 


* 


JSR 


L9522 




JSR 


L928F 


* 'PAINT 


■' THE 


FIRST HORIZONTAL LINE 1 




STU 


VD9 




JSR 


L99DF 




BEO 


L9931 




JSR 


L99CB 




LDA 


#$01 




STA 


VD7 




JSR 


L99BA 




NEC 


VD7 




JSR 


L99BA 


L9931 


STS 


TMPSTK 


L9934 


TST 


CHGFLG 




BNE 


L993B 




LDS 


TMPSTK 


L993B 


PULS 


A,B,X,U 




CLR 


CHGFLG 




STS 


TMPSTK 




LEAX 


$01, X 




STX 


HORBEG 




STU 


VDl 




STA 


VD7 




BEO 


L98EB 




BMI 


L9954 


* CHECK 


LINE 1 
INCB 


3EL0W CURRENT DATA 




CMPB 


VD6 




BLS 


L9958 




CLRB 




L9954 


TSTB 




* 


BEO 


L9934 


* 


DECB 




* PROCESS A HOR LINE THAT WAS STORED 


L9958 


STB 


VERBEG+1 




JSR 


L99DF 




BEO 


L996E 




CMPD 


#3 





BLO 


L9969 




LEAX 


$-02, X 




BSR 


L99A1 


L9969 


JSR 


L99CB 


L996C 


BSR 


L99BA 



CHECK FOR e SIGN 

SKIP IF NOT 

READ A CHARACTER FROM BASIC INPUT LINE 

*SYNTAX CHECK FOR ( , TWO EXPRESSION, AND ) . 

*SAVE HOR COORD IN HORSES, VER COORD IN VERSES 

NORMALIZE THE HOR, VER COORDINATES 

PSET VALUE 

SET PSET/PRESET FLAG TO PSET 

GET PAINT COLOR CODE S SET THE ACTIVE COLOR AND ALL PIXEL BYTES 

GET THEM 

SAVE THEM ON STACK 

GET CURRENT CHARACTER FROM INPUT LINE 

BRANCH IF NONE LEFT - DEFAULT BORDER COLOR TO FOREGROUND, 

PAINT COLOR TO BACKGROUND 

EVALUATE THE BORDER COLOR 

GET BORDER COLOR ALL PIXEL BYTE 

TEMP SAVE IT 

GET PAINT ACTIVE COLORS BACK 

RESAVE IT 

* STORE A BLOCK OF PAINT DATA ON THE STACK WHICH 

* WILL ACT AS AN END OF PAINT DATA FLAG. 
*THE CLRA WILL CAUSE THE UP/DN FLAG TO BE ZERO WHICH IS 
*USED AS A FLAG TO EXIT THE PAINT ROUTINE 

GET NORMALIZED MAX HOR/VER VALUES - RETURN RESULT IN VD3, VD5 
POINT U TO THE ROUTINE WHICH WILL SELECT A PIXEL 

FROM THE START COORDINATES 
SAVE IT 

PAINT FROM CURRENT HOR COORD TO ZERO 
BRANCH IF NO PAINTING DONE - HIT BORDER INSTANTLY 

PAINT TOWARD MAX HOR COORD 
* 

* UP/DN FLAG UP=1; DOWN=$FF 
SAVE POSITIVE GOING LINE INFO ON STACK 
SET UP/ON FLAG = FF 

SAVE NEGATIVE GOING LINE INFO ON STACK 
TEMP STORE STACK POINTER 

SEE IF PAINTED COLOR IS DIFFERENT THAN ORIGINAL COLOR 
BRANCH IF DATA HAS BEEN MODIFIED 
GET STACK POINTER BACK 

GET DATA FOR THE NEXT LINE SEGMENT TO CHECK FROM THE STACK 
CLEAR CHANGE FLAG 
TEMP SAVE STACK 

ADD ONE TO START HOR COORD - 1 
PUT IT AT CURRENT HOR COORD ADDR 

LENGTH OF PARENT LINE 
SAVE UP/DN FLAG 
EXIT ROUTINE IF UP/DN FLAG = 
BRANCH IF UP/DN FLAG = DOWN 

INCREMENT VER COORD 
COMPARE TO MAXIMUM VER COORD 
BRANCH IF NOT GREATER - PROCESS LINE 
SET VER COORD TO ZERO TO FORCE WRAP AROUND 
TEST VER COORD 

♦PROCESS ANOTHER BLOCK OF PAINT DATA IF 
*WRAP AROUND - DISCARD ANY LINE BELOW 
*VER COORD = OR ABOVE MAX VERTICAL COORD 
DEC VER COORD - WE ARE TESTING UP/DN FLAG = UP IF THERE 
ON STACK - LIMIT CHECKS HAVE BEEN DONE 
SAVE CURRENT VER COORD 
PAINT FROM HOR COORD TO ZERO OR BORDER 
IF NUMBER OF PAINTED PIXELS = 0, COMPLEMENT LENGTH 
*SEE IF < 3 PIXELS WERE PAINTED - IF FEWER THAN 
♦THREE PIXELS WERE PAINTED THEN THERE IS NO NEED TO 
♦CHECK FOR MORE DATA TO PAINT ON THE LINE TO THE 
*LEFT OF THE CURRENT POSITION IN THE OPPOSITE 
♦DIRECTION THAT THE UP/DN FLAG IS CURRENTLY SET TO 
BRANCH IF NO NEED TO CHECK FOR PAINTABLE DATA 
MOVE THE HORIZONTAL COORDINATE TWO PIXELS TO THE LEFT 
♦SAVE A BLOCK OF PAINT DATA IN THE DIRECTION 
♦OPPOSITE TO THE UP/DN FLAG 
CONTINUE PAINTING LINE TO THE RIGHT 
♦SAVE A BLOCK OF PAINT DATA IN THE SAME 
♦DIRECTION AS THE UP/DN FLAG 



THIS CODE WILL INSURE 
EXAMINED TO THE RIGHT 
A LENGTH EOUAL TO THE 



THAT THE CURRENT LINE IS 
FOR 'PAINTABLE' PIXELS FOR 
LENGTH OF THE 'PARENT' LINE 



COMA 




COMB 




ADDD 


VDl 


STD 


VDl 


BLE 


L998C 


JSR 


L9506 


JSR 


L9A12 


BNE 


L9983 


LDD 


#-1 


BRA 


L9970 


JSR 


L9514 


BSR 


L99C6 


BSR 


L99E8 


BRA 


L996C 



♦ COMPLEMENT LENGTH OF LINE JUST PAINTED 
ADD TO LENGTH OF PARENT LINE 

SAVE DIFFERENCE OF LINE JUST PAINTED AND PARENT LINE 
BRANCH IF PARENT LINE IS SHORTER 
GO INC HOR COORD 
CHECK FOR BORDER COLOR 
NOT BORDER COLOR - 

♦ GO DECREMENT ONE FROM LENGTH OF DIFFERENCE 

♦ LINE AND KEEP LOOKING FOR NON BORDER COLOR 
GO DEC HOR COORD 

GET AND SAVE HOR COORD 

PAINT FORWARD TO MAX HOR COORD OR BORDER 

SAVE A BLOCK OF PAINT DATA AND KEEP CHECKING 



CHECK TO SEE IF THE CURRENT LINE EXTENDS FURTHER TO 
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3457 










3458 










3459 










3460 


998C 


BD 


95 


06 


3461 


998F 


30 


8B 




3462 


9991 


9F 


BD 




3463 


9993 


43 






3464 


9994 


53 






3465 


9995 


83 


00 


01 


3466 


9998 


2F 


04 




3467 


999A 


IF 


01 




3468 










3469 


999C 


8D 


03 




347B 










3471 


> 999E 


7E 


99 


34 


3472 










3473 










3474 










3475 










3476 










3477 










3478 










3479 










3480 










3481 










3482 










3483 


99A1 


DD 


CB 




3484 


99A3 


35 


20 




3485 


99A5 


DC 


BD 




3486 


99A7 


34 


16 




3487 


99A9 


96 


D7 




3488 


99AB 


40 






3489 


99AC 


D6 


C0 




3490 


99AE 


34 


06 




3491 


99B0 


34 


20 




3492 










3493 










3494 










3495 










3496 


99B2 


C6 


02 




3497 


99B4 


BD 


AC 


33 


3498 


99B7 


DC 


CB 




3499 


99B9 


39 






3500 










3501 










3502 










3503 


99BA 


DD 


CB 




3504 


99BC 


35 


20 




3505 


99BE 


DC 


C3 




3506 


99C0 


34 


16 




3507 


99C2 


96 


D7 




3508 


99C4 


20 


E6 




3509 


99C6 


9E 


BD 




3510 


99C8 


9F 


C3 




3511 


99CA 


39 






3512 










3513 


99CB 


DD 


CD 




3514 


99CD 


10 


9E 


C3 


3515 


99D0 


8D 


F4 




3516 










3517 


99D2 


10 


9F 


BD 


3518 


99D5 


8D 


11 




3519 


99D7 


9E 


CD 




3520 


99D9 


30 


8B 




3521 


99DB 


C3 


00 


01 


3522 










3523 


99DE 


39 






3524 










3525 










3526 


> 99DF 


BD 


99 


C6 


3527 


99E2 


10 


8E 


95 14 


3528 


99E6 


20 


06 




3529 










3530 










3531 


99E8 


10 


8E 


95 06 


3532 


99EC 


AD 


A4 




3533 


99EE 


DE 


8A 




3534 


99F0 


9E 


BD 




3535 


99F2 


2B 


17 




3536 


99F4 


9C 


D3 




3537 


99F6 


22 


13 




3538 


99F8 


34 


60 




3539 


99FA 


8D 


16 




3540 


99FC 


27 


0B 




3541 


99FE 


BD 


93 


77 


3542 


9A01 


35 


60 




3543 


9A03 


33 


41 




3544 


9A05 


AD 


A4 




3545 


9A07 


20 


E9 




3546 


9A09 


35 


60 




3547 


9A0B 


IF 


30 




3548 


9A0D 


IF 


01 




3549 


9A0F 


93 


8A 




3550 


9A11 


39 






3551 










3552 











THE RIGHT THAN THE PARENT LINE AND PUT A BLOCK OF 



* PAINT DATA ON THE STACK IF IT IS MORE THAN 

* PAST THE END OF THE PARENT LINE 
L998C JSR L9506 



LEAX 


D.X 


STX 


HORBE( 


COMA 




COMB 




SUBO 


#1 


BLE 


L999E 


TFR 


D.X 



BSR L99A1 



JMP L9934 



INC CURRENT HOR COORD 

* POINT X TO THE RIGHT END OF THE PARENT LINE 

* AND SAVE IT AS THE CURRENT HORIZ COORDINATE 

= ACCD CONTAINS A NEGATIVE NUMBER CORRESPONDING TO 

= THE NUMBER OF PIXELS THE CURRENT LINE EXTENDS 

= PAST THE RIGHT END OF THE PARENT LINE. CONVERT 

= TO A POSITIVE NUMBER AND BRANCH IF THE LINE DOESN T EXTEND 

*SAVE THE PORTION OF THE LINE TO THE RIGHT OF THE PARENT LINE 

*AS THE LENGTH 

=SAVE A BLOCK OF PAINT DATA IN THE DIRECTION OPPOSITE THE 

=CURRENT UP/DN FLAG 

PROCESS MORE PAINT DATA BLOCKS 



BLOCKS OF PAINT DATA ARE STORED ON THE STACK SO THAT PAINT 
CAN REMEMBER WHERE IT SHOULD GO BACK TO PAINT UP OR DOWN 
FROM THE CURRENT LINE IT IS PAINTING. THESE BLOCKS OF DATA 
REPRESENT HORIZONTAL LINES ABOVE OR BELOW THE CURRENT LINE 
BEING PAINTED AND REOUIRE SIX BYTES OF STORAGE ON THE STACK. 
THE DATA ARE STORED AS FOLLOWS: ,S=UP/DOWN FLAG; 1,S=VER COORD 
OF LINE; 2 3,S=LEFTM0ST HOR COORD OF LINE; 4 5,S=LENGTH OF LINE 



SAVE A BLOCK OF PAINT DATA FOR A LINE IN THE 
OPPOSITE DIRECTION OF THE CURRENT UP/DN FLAG 



SAVE NUMBER PIXELS PAINTED 

PUT RETURN ADDR IN Y 

GET HORIZONTAL START COORDINATE 

PUT ON STACK 

GET U/D FLAG 

REVERSE THE UP/DN FLAG 

GET VERTICAL START COORDINATE 

SAVE VERTICAL START COORDINATE AND U/D FLAG 

PUT RETURN ADDR BACK ON STACK 



CODE BELOW CHECKS FOR ABILITY TO STORE FOUR BYTES IN 

FREE RAM, HOWEVER THE PAINT ROUTINE WILL STORE SIX 

BYTES IN FREE RAM - FIRST INSTRUCTION SHOULD BE LOB #3 

LOB #$02 * CHECK TO SEE IF THERE S ENOUGH FREE 

JSR LAC33 * RAM FOR 4 BYTES TEMP STORAGE 

LDD VCB GET LENGTH OF RIGHT PAINTED LINE 

RTS 



STD 


VCB 


PULS 


Y 


LDD 


HORBEG 


PSHS 


X.B.A 


LDA 


VD7 


NEGA 




LOB 


VERBEG+1 


PSHS 


B,A 


PSHS 


Y 



* SAVE A BLOC 

* THE SAME DI 
L99BA STD 

PULS 
LDD 
PSHS 
LDA 
BRA 
L99C6 LDX 
STX 
RTS 

* GO HERE TO 
L99CB STD 

LDY 
BSR 

STY 

BSR 

LDX 

LEAX 

ADDD 



K OF PAINT DATA FOR A LINE IN 
RECTION AS THE CURRENT UP/DN FLAG 

VCB 

Y 

HOREND 

X.B.A 

VD7 

L99AC 

HORBEG 

HOREND 



SAVE LENGTH OF RIGHT HOR PAINTED LINE 

SAVE RETURN ADDRESS IN Y 

HORIZONTAL START COORDINATE 

SAVE HORIZONTAL START COORDINATE AND LENGTH 

GET UP/DOWN FLAG (1 OR -1) 

SAVE THE PAINT DATA ON THE STACK 

GET CURRENT HOR COORD 

SAVE IT 



FINISH PAINTING TO RIGHT AFTER YOU HAVE PAINTED TO THE LEFT 

VCD SAVE COUNT OF THE NUMBER OF PIXELS PAINTED 

HOREND GET LAST HOR START COORD 

L99C6 *SAVE CURRENT HOR COORD - NOW HOREND CONTAINS COORDINATE 

*THE LEFT BORDER OF THIS HORIZONTAL LINE 

HORBEG START PAINTING TO RIGHT FROM THE LEFT PAINT START COORD 

L99E8 PAINT TOWARDS THE RIGHT 

VCD GET THE NUMBER OF PIXELS PAINTED WHEN GOING TOWARDS LEFT PIXELS 

D,X ADD TO NUMBER PAINTED GOING TOWARD RIGHT 

#1 ADD 1 TO PAINT COUNT TOWARD RIGHT - ACCD = LENGTH OF PAINTED LINE 



RTS 

* PAINT FROM HOR COORD TO ZERO OR HIT BORDER 

* RETURN WITH Z = 1 IF NO PAINTING DONE 
L99DF JSR L99C6 

LDY #L9514 
BRA L99EE 

* PAINT FROM HOR COORD TO MAX HOR COORD OR HIT 

* BORDER-RETURN Z=l IF NO PAINTING DONE 



L99E8 


LDY 


#L9506 




JSR 


,Y 


L99EE 


LOU 


ZERO 




LDX 


HORBEG 


L99F2 


BMI 


L9A0B 




CMPX 


VD3 




BHI 


L9A0B 




PSHS 


U,Y 




BSR 


L9A12 




BEQ 


L9A09 




JSR 


L9377 




PULS 


Y.U 




LEAU 


$01, U 




JSR 


,Y 




BRA 


L99F2 


L9A09 


PULS 


Y,U 


L9A0B 


TFR 


U,D 




TFR 


D,X 




SUBD 


ZERO 




RTS 




* CHECK 


FOR BORDER COLOR - ENTER W/VD9 CONTAIN 


* ADDRESS OF 


ROUTINE TO GET ABS SCREEN ADDRESS 



PUT STARTING HOR COORD IN HOREND 
(DECR HOR COORD ADDRESS) TO Y 
GO PAINT THE LINE 



PUT INCR HOR COORD ADDR IN Y 

INCR HOR COORD - THE LEFT PAINT ROUTINE PAINTED THE FIRST COORD 

ZERO U REG - INITIAL PIXEL PAINT COUNTER 

GET HOR COORD 

BRANCH IF HORIZONTAL COORDINATE IS > $7F OR < 

COMPARE CURRENT HOR COORD TO MAX VALUE 

BRANCH IF > MAX 

SAVE PAINT COUNTER, INC/DEC POINTER 

CHECK FOR BORDER PIXEL 

HIT BORDER 

SET PIXEL TO PAINT COLOR - PAINTING IS DONE HERE 

RESTORE PAINT COUNTER AND INC/DEC POINTER 

ADD ONE TO PAINT COUNTER 

INCR OR DECR HOR COORD DEPENDING ON CONTENTS OF Y 

KEEP PAINTING THE LINE 

RESTORE PAINT COUNTER AND INC/DEC POINTER 

SAVE PAINT COUNTER IN ACCD 

SAVE PAINT COUNTER IN X 

SET FLAGS ACCORDING TO CONDITION OF PAINT COUNTER 



ING 
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3553 








3554 


9A12 


AD 


9F 00 D9 


3555 


9A16 


IF 


89 


3556 


9A18 


D4 


D8 


3557 


9A1A 


34 


06 


3558 


9A1C 


A4 


84 


3559 


9A1E 


Al 


61 


3560 


9A20 


35 


86 


3561 








3562 








3563 


9A22 


9E 


8A 


3564 


9A24 


C6 


01 


3565 


9A26 


34 


14 


3566 


9A28 


BD 


Bl 56 


3567 


9A2B 


5F 




3568 


9A2C 


BD 


A9 A2 


3569 


9A2F 


BD 


A9 76 


357B 


9A32 


BD 


B6 54 


3571 








3572 


9A35 


20 


02 


3573 


9A37 


35 


14 


3574 


9A39 


D7 


D8 


3575 


9A3B 


27 


FA 


3576 


9A3D 


9F 


D9 


3577 


9A3F 


10 


27 0F 31 


3578 


9A43 


0D 


D8 


3579 


9A45 


27 


F0 


358B 


9A47 


BD 


9B 98 


3581 


9A4A 


81 


3B 


3582 


9A4C 


27 


F5 


3583 


9A4E 


81 


27 


3584 


9A50 


27 


Fl 


3585 


9A52 


81 


58 


3586 


9A54 


10 


27 01 B2 


3587 


9A58 


8D 


02 


3588 


9A5A 


20 


E7 


3589 








359B 


9A5C 


81 


4F 


3591 


9A5E 


26 


0D 


3592 


9A60 


D6 


DE 


3593 


9A62 


5C 




3594 


9A63 


8D 


5B 


3595 


9A65 


5A 




3596 


9A66 


CI 


04 


3597 


9A68 


22 


63 


3598 


9A6A 


D7 


DE 


3599 


9A6C 


39 




36BB 








36B1 


9A6D 


81 


56 


3602 


9A6F 


26 


lA 


36B3 


9A71 


D6 


DF 


3604 


9A73 


54 




3605 


9A74 


54 




3606 


9A75 


C0 


IF 


3607 


9A77 


8D 


47 


3608 


9A79 


CI 


IF 


3609 


9A7B 


22 


50 


3610 


9A7D 


58 




3611 


9A7E 


58 




3612 


9A7F 


34 


04 


3613 


9A81 


CC 


7E 7E 


3614 


9A84 


AB 


E4 


3615 


9A86 


E0 


E0 


3616 


9A88 


DD 


DF 


3617 


9A8A 


39 




3618 








3619 


9A8B 


81 


4C 


3620 


9A8D 


26 


23 


3621 


9A8F 


D6 


El 


3622 


9A91 


8D 


2D 


3623 


9A93 


5D 




3624 


9A94 


27 


37 


3625 


9A96 


D7 


El 


3626 


9A98 


0F 


E5 


3627 


9A9A 


8D 


03 


3628 


9A9C 


24 


FC 


3629 


9A9E 


39 




3630 








3631 


9A9F 


0D 


D8 


3632 


9AA1 


27 


0A 


3633 


9AA3 


BD 


9B 98 


3634 


9AA6 


81 


2E 


3635 


9AA8 


27 


05 


3636 


9AAA 


BD 


9B E2 


3637 








3638 


9AAD 


43 




3639 


9AAE 


39 




3640 


9AAF 


0C 


E5 


3641 


9AB1 


39 




3642 








3643 


9AB2 


81 


54 


3644 


9AB4 


26 


0D 


3645 


9AB6 


D6 


E2 


3646 


9AB8 


8D 


06 


3647 


9ABA 


5D 




3648 


9ABB 


27 


10 



AND PIXEL MASK - EXIT WITH Z = 1 IF HIT BORDER COLOR PIXEL 



L9A12 


JSR 


[VD9] 




TFR 


A.B 




ANDB 


VD8 




PSHS 


B.A 




ANDA 


,x 




CMPA 


$01, S 




PULS 


A.B.PC 


* PLAY 






PLAY 


LDX 


ZERO 




LOB 


#$01 




PSHS 


X,B 




JSR 


LB156 




CLRB 






JSR 


LA9A2 




JSR 


LA976 


L9A32 


JSR 


LB654 




BRA 


L9A39 


L9A37 


PULS 


B.X 


L9A39 


STB 


VD8 




BEQ 


L9A37 




STX 


VD9 




LBEO 


LA974 


L9A43 


TST 


VD8 




BEO 


L9A37 




JSR 


L9B98 




CMPA 


#■ ;■ 




BEQ 


L9A43 




CMPA 


#■ ■ ■ 




BEO 


L9A43 




CMPA 


#'X' 




LBEO 


L9C0A 




BSR 


L9A5C 




BRA 


L9A43 


* OCTAVE 




L9A5C 


CMPA 


#'0' 




BNE 


L9A6D 




LOB 


OCTAVE 




INCB 






BSR 


L9AC0 




DECB 






CMPB 


#$04 




BHI 


L9ACD 




STB 


OCTAVE 




RTS 




* VOLUME 




L9A6D 


CMPA 


#'V' 




BNE 


L9A8B 




LOB 


VOLHI 




LSRB 






LSRB 






SUBB 


#31 




BSR 


L9AC0 




CMPB 


#31 




BHI 


L9ACD 




ASLB 






ASLB 






PSHS 


B 




LDD 


#$7E7E 




ADDA 


,s 




SUBB 


,s+ 




STD 


VOLHI 




RTS 




* NOTE LENGTH 




L9A8B 


CMPA 


#'L' 




BNE 


L9AB2 




LDB 


NOTELN 




BSR 


L9AC0 




TSTB 






BEQ 


L9ACD 




STB 


NOTELN 




CLR 


DOTVAL 


L9A9A 


BSR 


L9A9F 




BCC 


L9A9A 




RTS 




* SCALE 


FACTOR - DOTTED NOTE 


L9A9F 


TST 


VD8 




BEO 


L9AAD 




JSR 


L9B98 




CMPA 


#■ .■ 




BEQ 


L9AAF 




JSR 


L9BE2 


L9AAD 


COMA 
RTS 




L9AAF 


INC 
RTS 


DOTVAL 


* TEMPO 






L9AB2 


CMPA 


#'T' 




BNE 


L9AC3 




LDB 


TEMPO 




BSR 


L9AC0 




TSTB 






BEO 


L9ACD 



GET THE ADDR AND PIXEL MASK 

COPY PIXEL MASK TO ACCB 

AND PIXEL MASK W/BORDER COLOR; ACCB = ONE PIXEL OF BORDER COLOR 

PUSH MASK AND BORDER PIXEL 

* PUT CURRENT PIXEL DATA INTO ACCB AND 

* COMPARE IT TO BORDER COLOR; Z FLAG = 1 IF MATCH 
RESTORE MASK AND BORDER PIXEL - THEN RETURN 



♦DEFAULT VALUES FOR LENGTH OF PLAY COMMAND AND ADDRESS 
*0F START OF PLAY STRING IF USED FOR PLAY (NULL STRING) 
SAVE DEFAULT VALUES 
EVALUATE EXPRESSION 

* SET UP DA TO PASS THROUGH ANA MUX 

ENABLE ANA MUX 

*POINT X TO START OF PLAY STRING AND PUT LENGTH 

*0F STRING INTO ACCB 

INEFFICIENT - SHOULD BE FCB SKP2 

GET PLAY STRING START AND LENGTH 

LENGTH OF PLAY COMMAND 

GET NEW STRING DATA IF LENGTH = 

START OF PLAY STRING 

DISABLE ANA MUX AND RETURN IF X = 

SEE IF LENGTH OF STRING = 

GET NEW DATA IF SO 

GET A COMMAND CHARACTER IF NOT 

SUB COMMAND TERMINATED 

IGNORE SEMICOLONS 

CHECK FOR APOSTROPHE 

IGNORE THEM TOO 

CHECK FOR AN EXECUTABLE SUBSTRING 

GO PROCESS SUB COMMAND 

CHECK FOR OTHER COMMANDS 

KEEP GOING THROUGH INTERPRETATION LOOP 

ADJUST OCTAVE? 

NO 

GET CURRENT OCTAVE 

LEGAL VALUES ARE 1-5 BUT INTERNALLY THE COMPUTER USES 0-4 

MODIFIER CHECK 

COMPENSATE FOR INCB ABOVE 

MAXIMUM VALUE OF 4 

FC ERROR 
SAVE NEW VALUE OF OCTAVE 



ADJUST VOLUME? 

NO 

GET CURRENT HIGH VOLUME LIMIT 

*SHIFT 2 BITS TO RIGHT; DA IS ONLY 6 BITS (BIT 2 

*T0 MANIPULATE THE DATA IT MUST BE IN BITS 0-5 

SUBTRACT OUT MID VALUE OFFSET 

MODIFIER CHECK 

MAXIMUM ALLOWED RANGE IS 31 

FC ERROR 
* 

♦MOVE NEW VALUE BACK TO BITS 2-7 
SAVE NEW VOLUME ON THE STACK 
PUT MID VALUE IN HIGH AND LOW LIMIT 
ADD NEW VOLUME TO HIGH LIMIT 
SUBTR NEW VOLUME FROM LOW LIMIT 
SAVE NEW VOLUME LIMITS 



SET NOTE LENGTH? 

NO 

GET CURRENT LENGTH 

MODIFIER CHECK 

* FC ERROR IF LENGTH = 
SAVE NEW NOTE LENGTH 
RESET NOTE TIMER SCALE FACTOR 
CHECK FOR A DOTTED NOTE 
BRANCH IF DOTTED NOTE 



CHECK COMMAND LENGTH 

IT S EMPTY 

GET COMMAND CHARACTER 

CHECK FOR DOTTED NOTE 

BRANCH ON DOTTED NOTE AND CLEAR CARRY FLAG 

*MOVE COMMAND STRING POINTER BACK ONE AND ADD ONE TO 

♦COMMAND LENGTH 

SET CARRY FLAG 



ADD ONE TO NOTE TIMER SCALE FACTOR 



MODIFY TEMPO? 
NO 

GET CURRENT TEMPO 
EVALUATE MODIFIER 
SET FLAGS 
FC ERROR IF IT S 
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3649 


9ABD 


D7 


E2 




STB 


TEMPO 


3650 


9ABF 


39 






RTS 




3651 


9AC0 


7E 


9B AC 


L9AC0 


JMP 


L9BAC 


3652 








* PAUSE 




3653 


9AC3 


81 


50 


L9AC3 


CMPA 


#'P' 


3654 


9AC5 


26 


24 




BNE 


L9AEB 


3655 


9AC7 


BD 


9C CB 




JSR 


L9CCB 


3656 


9ACA 


5D 






TSTB 




3657 


9ACB 


26 


03 




BNE 


L9AD0 


3658 


9ACD 


7E 


B4 4A 


L9ACD 


JMP 


LB44A 


3659 


9AD0 


96 


E5 


L9AD0 


LDA 


DOTVAL 


3660 


9AD2 


9E 


DF 




LDX 


VOLHI 


3661 


9AD4 


34 


12 




PSHS 


X,A 


3662 


9AD6 


86 


7E 




LDA 


#$7E 


3663 


9AD8 


97 


DF 




STA 


VOLHI 


3664 


9ADA 


97 


E0 




STA 


VOLLOW 


3665 


9ADC 


0F 


E5 




CLR 


DOTVAL 


3666 


9ADE 


8D 


07 




BSR 


L9AE7 


3667 


9AE0 


35 


12 




PULS 


A,X 


3668 


9AE2 


97 


E5 




STA 


DOTVAL 


3669 


9AE4 


9F 


DF 




STX 


VOLHI 


3670 


9AE6 


39 






RTS 




3671 


9AE7 


6F 


E2 


L9AE7 


CLR 


,-s 


3672 


9AE9 


20 


40 




BRA 


L9B2B 


3673 








* NOTE 






3674 


9AEB 


81 


4E 


L9AEB 


CMPA 


#'N' 


3675 


9AED 


26 


03 




BNE 


L9AF2 


3676 


9AEF 


BD 


9B 98 




JSR 


L9B98 


3677 


9AF2 


81 


41 


L9AF2 


CMPA 


#'A' 


3678 


9AF4 


25 


04 




BLO 


L9AFA 


3679 


9AF6 


81 


47 




CMPA 


#■6' 


3680 


9AF8 


23 


05 




BLS 


L9AFF 


3681 


9AFA 


BD 


9B BE 


L9AFA 


JSR 


L9BBE 


3682 


9AFD 


20 


23 




BRA 


L9B22 


3683 








* PROCESS A NOTE HERE 


3684 


9AFF 


80 


41 


L9AFF 


SUBA 


#'A' 


3685 


9B01 


8E 


9C 5B 




LDX 


#L9C5B 


3686 


9B04 


E6 


86 




LDB 


A,X 


3687 


9B06 


0D 


D8 




TST 


VD8 


3688 


9B08 


27 


18 




BEQ 


L9B22 


3689 


9B0A 


BD 


9B 98 




JSR 


L9B98 


3690 


9B0D 


81 


23 




CMPA 


#'#• 


3691 


9B0F 


27 


04 




BEO 


L9B15 


3692 


9B11 


81 


2B 




CMPA 


#' + ' 


3693 


9B13 


26 


03 




BNE 


L9B18 


3694 


9B15 


5C 




L9B15 


INCB 




3695 


9B16 


20 


0A 




BRA 


L9B22 


3696 


9B18 


81 


2D 


L9B18 


CMPA 


#'-' 


3697 


9B1A 


26 


03 




BNE 


L9B1F 


3698 


9B1C 


5A 






DECB 




3699 


9B1D 


20 


03 




BRA 


L9B22 


3700 


9B1F 


BD 


9B E2 


L9B1F 


JSR 


L9BE2 


3701 








* 






3702 


9B22 


5A 




L9B22 


DECB 




3703 








* 






3704 


9B23 


CI 


0B 




CMPB 


#12-1 


3705 


9B25 


22 


A6 




BHI 


L9ACD 


3706 


9B27 


34 


04 




PSHS 


B 


3707 


9B29 


D6 


El 




LDB 


NOTELN 


3708 


9B2B 


96 


E2 


L9B2B 


LDA 


TEMPO 


3709 


9B2D 


3D 






MUL 




3710 


9B2E 


DD 


D5 




STD 


VD5 


3711 








* THE 


IRO INTERRUPT 11 


3712 








* THE 


PLAY 1 


:OMMAND. 


3713 








* ROUTINE WILL RETURN 


3714 


9B30 


33 


61 




LEAU 


$01, S 


3715 








* 






3716 








* 






3717 


9B32 


96 


DE 




LDA 


OCTAVE 


3718 


9B34 


81 


01 




CMPA 


#$01 


3719 


9B36 


22 


2C 




BHI 


L9B64 


3720 








* OCTAVES 1 AND 2 USE 


3721 


9B38 


8E 


9C 62 




LDX 


#L9C62 


3722 


9B3B 


C6 


18 




LDB 


#2*12 


3723 


9B3D 


3D 






MUL 




3724 


9B3E 


3A 






ABX 




3725 


9B3F 


35 


04 




PULS 


B 


3726 


9B41 


58 






ASLB 




3727 


9B42 


3A 






ABX 




3728 


9B43 


31 


84 




LEAY 


,x 


3729 


9B45 


8D 


45 




BSR 


L9B8C 


3730 


9B47 


DD 


E3 




STD 


PLYTMR 


3731 








* MAIN 


SOUND 1 


2ENERATII 


3732 








* OF THIS LOOP (OCTAVI 


3733 


9B49 


8D 


0C 


L9B49 


BSR 


L9B57 


3734 


9B4B 


96 


DF 




LDA 


VOLHI 


3735 


9B4D 


8D 


0B 




BSR 


L9B5A 


3736 


9B4F 


8D 


06 




BSR 


L9B57 


3737 


9B51 


96 


E0 




LDA 


VOLLOM 


3738 


9B53 


8D 


05 




BSR 


L9B5A 


3739 


9B55 


20 


F2 




BRA 


L9B49 


3740 


9B57 


86 


7E 


L9B57 


LDA 


#$7E 


3741 


9B59 


12 






NOP 




3742 


9B5A 


B7 


FF 20 


L9B5A 


STA 


PIAl 


3743 


9B5D 


AE 


A4 




LDX 


,Y 


3744 


9B5F 


30 


IF 


L9B5F 


LEAX 


$-01, X 



SAVE NEW TEMPO 

EVALUATE THE >,<,+,-,= OPERATORS 

PAUSE COMMAND? 

NO 

EVALUATE A DECIMAL COMMAND STRING VALUE 

* CHECK FOR LEGAL EXPRESSION AND 

* BRANCH IF PAUSE VALUE <> 
FC ERROR IF PAUSE <> 

*SAVE CURRENT VALUE OF VOLUME AND NOTE 
*TIMER SCALE 

MID VALUE OF DA CONVERTER 
*SET VOLUME = 

RESET NOTE TIMER SCALE FACTOR 
GO PLAY A NOTE OF VOLUME 

♦RESTORE VALUE OF VOLUME 
*AND NOTE TIMER SCALE 

PUSH NOTE NUMBER ONTO STACK 
GO PLAY IT 

LETTER N BEFORE THE NUMBER OF A NOTE? 

NO - IT S OPTIONAL 

GET NEXT COMMAND CHARACTER 

CHECK FOR NOTE A 

BELOW 

CHECK FOR NOTE B 

FOUND NOTE A-G 

EVALUATE DECIMAL NUMERIC EXPRESSION IN COMMAND STRING 

PROCESS NOTE VALUE 

MASK OFF ASCII 

LOAD X WITH NOTE JUMP TABLE 

GET NOTE 

ANY COMMAND CHARACTERS LEFT? 

NO 

GET COMMAND CHARACTER 

SHARP NOTE? 
YES 

SHARP NOTE? 
NO 

ADD 1 TO NOTE NUMBER (SHARP) 
PROCESS NOTE 

FLAT NOTE? 
NO 

SUBTR 1 FROM NOTE NUMBER (FLAT) 
PROCESS NOTE 

*MOVE COMMAND STRING PTR BACK ONE AND ADD ONE 
*T0 COMMAND LENGTH CTR 

=ADJUST NOTE NUMBER, BASIC USES NOTE NUMBERS 1-12, INTERNALLY 
=COMPUTER USES 0-11 
MAXIMUM NOTE VALUE 

FC ERROR IF > 11 
SAVE NOTE VALUE 
GET NOTE LENGTH 
GET TEMPO 

CALCULATE NOTE DURATION 
SAVE NOTE DURATION 
S USED TO PROVIDE A MASTER TIMING REFERENCE FOR 
WHEN A NOTE IS DONE, THE IRO SERVICING 
CONTROL TO THE MAIN PLAY COMMAND INTERPRETATION LOOP 

*LOAD U W/CURRENT VALUE OF (STACK POINTER-H) SO THAT THE STACK 
♦POINTER WILL BE PROPERLY RESET WHEN IRO VECTORS 
*YOU OUT OF THE PLAY TIMING ROUTINES BELOW 
GET CURRENT OCTAVE 

* BRANCH IF OCTAVE > 1 
A TWO BYTE DELAY TO SET THE PROPER FREOUENCY 

POINT TO DELAY TABLE 

24 BYTES DATA/OCTAVE 

CALC OCTAVE TABLE OFFSET 

POINT TO CORRECT OCTAVE TABLE 

GET NOTE VALUE BACK 

X 2 - 2 BYTES/NOTE 

POINT TO CORRECT NOTE 

GET POINTER TO Y REG (TFR X,Y) 

CALCULATE NOTE TIMER VALUE 

SAVE IT 
ON LOOP - ONLY THE IRQ SERVICE WILL GET YOU OUT 
ES 1 AND 2) 

MID VALUE TO DA AND WAIT 

GET HIGH VALUE 

STORE TO DA AND WAIT 

MID VALUE TO DA AND WAIT 

GET LOW VALUE 

STORE 

KEEP LOOPING 

DA MID VALUE AND RS 232 MARKING 

DELAY SOME - FINE TUNE PLAY FREOUENCY 

STORE TO DA CONVERTER 

GET DELAY FROM OCTAVE TABLE 
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3745 


9B61 


26 


FC 


3746 


9B63 


39 




3747 








3748 


9B64 


8E 


9C 7A 


3749 


9B67 


C6 


0C 


3750 


9B69 


3D 




3751 


9B6A 


3A 




3752 


9B6B 


35 


04 


3753 


9B6D 


3A 




3754 


9B6E 


8D 


IC 


3755 


9B70 


DD 


E3 


3756 


9B72 


8D 


0C 


3757 


9B74 


96 


DF 


3758 


9B76 


8D 


0B 


3759 


9B78 


8D 


06 


3760 


9B7A 


96 


E0 


3761 


9B7C 


8D 


05 


3762 


9B7E 


20 


F2 


3763 








3764 


9B80 


86 


7E 


3765 


9B82 


12 




3766 


9B83 


B7 


FF 20 


3767 


9B86 


A6 


84 


3768 


9B88 


4A 




3769 


9B89 


26 


FD 


3770 


9B8B 


39 




3771 








3772 








3773 


9B8C 


C6 


FF 


3774 


9B8E 


96 


E5 


3775 


9B90 


27 


05 


3776 


9B92 


8B 


02 


3777 


9B94 


3D 




3778 


9B95 


44 




3779 


9B96 


56 




3780 


9B97 


39 




3781 








3782 








3783 


9B98 


34 


10 


3784 


9B9A 


0D 


D8 


3785 


9B9C 


27 


4D 


3786 


9B9E 


9E 


D9 


3787 


9BA0 


A6 


80 


3788 


9BA2 


9F 


D9 


3789 


9BA4 


0A 


D8 


3790 


9BA6 


81 


20 


3791 


9BA8 


27 


F0 


3792 


9 BAA 


35 


90 


3793 








3794 








3795 








3796 


9BAC 


8D 


EA 


3797 


9BAE 


81 


2B 


3798 


9BB0 


27 


3C 


3799 


9BB2 


81 


2D 


3800 


9BB4 


27 


3C 


3801 


9BB6 


81 


3E 


3802 


9BB8 


27 


42 


3803 


9BBA 


81 


3C 


3804 


9BBC 


27 


39 


3805 


9BBE 


81 


3D 


3806 


9BC0 


27 


3F 


3807 








3808 








3809 


9BC2 


BD 


90 AA 


3810 


9BC5 


25 


24 


3811 


9BC7 


5F 




3812 








3813 








3814 


9BC8 


80 


30 


3815 


9BCA 


97 


D7 


3816 


9BCC 


86 


0A 


3817 


9BCE 


3D 




3818 


9BCF 


4D 




3819 


9BD0 


26 


19 


3820 


9BD2 


DB 


D7 


3821 


9BD4 


25 


15 


3822 


9BD6 


0D 


D8 


3823 


9BD8 


27 


17 


3824 


> 9BDA 


BD 


9B 98 


3825 


9BDD 


BD 


90 AA 


3826 


9BE0 


24 


E6 


3827 


9BE2 


0C 


D8 


3828 


9BE4 


9E 


D9 


3829 


9BE6 


30 


IF 


3830 


9BE8 


9F 


D9 


3831 


9BEA 


39 




3832 


9BEB 


7E 


B4 4A 


3833 


9BEE 


5C 




3834 


9BEF 


27 


FA 


3835 


9BF1 


39 




3836 


9BF2 


5D 




3837 


9BF3 


27 


F6 


3838 


9BF5 


5A 




3839 


9BF6 


39 




3840 


9BF7 


5D 





BNE 
RTS 
OCTAVES 3,4 

9B64 LDX 

LDB 
MUL 
ABX 
PULS 
ABX 
BSR 
STD 

9B72 BSR 

LDA 
BSR 
BSR 
LDA 
BSR 
BRA 



L9B5F 



*COUNT X TO ZERO - PROGRAMMABLE DELAY 



AND 5 USE A ONE BYTE DELAY TO SET THE PROPER FREOUENCY 
#L9C92-2*12 POINT TO DELAY TABLE 

#12 12 BYTES DATA PER OCTAVE 

CAIC OCTAVE TABLE OFFSET 
POINT TO CORRECT OCTAVE TABLE 
B GET NOTE VALUE BACK 

POINT TO CORRECT NOTE 
L9B8C CALCULATE NOTE TIMER VALUE 

PLYTMR SAVE IT 

L9B80 MID VALUE TO DA AND WAIT 

VOLHI GET HIGH VALUE 

L9B83 STORE TO DA AND WAIT 

L9B80 MID VALUE TO DA AND WAIT 

VOLLOW GET LOW VALUE 

L9B83 STORE TO DA AND WAIT 

L9B72 KEEP GOING 



PUT MID VALUE TO DA CONVERTER AND WAIT A WHILE 



L9B80 



L9B83 



#$7E 



PIAl 
,X 



L9B88 



DA CONVERTER MID VALUE AND KEEP RS 232 OUTPUT MARKING 

DELAY SOME - FINE TUNE PLAY FREOUENCY 

STORE IN DA CONVERTER 

GET DELAY VALUE FROM OCTAVE TABLE 



COUNT ACCA TO ZERO 
COUNT ACCA TO ZERO 



TIME DELAY 
TIME DELAY 





LDA 


DOTVAL 




BEQ 


L9B97 




ADDA 


#$02 




MUL 






LSRA 






RORB 




L9B97 


RTS 




* GET 


NEXT COMMAND - 


L9B98 


PSHS 


X 


L9B9A 


TST 


VD8 




BEQ 


L9BEB 




LDX 


VD9 




LDA 


,x+ 




STX 


VD9 




DEC 


VD8 




CM PA 


#SPACE 




BEQ 


L9B9A 




PULS 


X,PC 



LDA 

NOP 

STA 

LDA 

DECA 

BNE 

RTS 

* CALCULATE NOTE TIMER VALUE - RETURN WITH VALUE IN ACCD - 

* THE LARGER ACCD IS, THE LONGER THE NOTE WILL PLAY 

L9B8C LDB #$FF NOTE TIMER BASE VALUE 

GET NOTE TIMER SCALE FACTOR 

USE DEFAULT VALUE IF 

ADD IN CONSTANT TIMER SCALE FACTOR 

MULTIPLY SCALE FACTOR BY BASE VALUE 

♦DIVIDE ACCD BY TWO - EACH INCREMENT OF DOTVAL 

*WILL INCREASE NOTE TIMER BY 128 



SAVE X REGISTER 
CHECK COMMAND COUNTER 

FC ERROR IF NO COMMAND DATA LEFT 
GET COMMAND ADDR 
GET COMMAND 
SAVE NEW ADDRESS 
DECREMENT COMMAND CTR 
CHECK FOR BLANK 
IGNORE BLANKS 
RESTORE X RESISTER AND RETURN 

EVALUATE THE >,<,+,-,= OPERATORS - ENTER WITH THE VALUE TO 
BE OPERATED ON IN ACCB, RETURN NEW VALUE IN SAME 

GET A COMMAND CHARACTER 

ADD ONE? 

YES 

SUBTRACT ONE? 

YES 

MULTIPLY BY TWO? 

YES 

DIVIDE BY TWO? 

YES 

♦CHECK FOR VARIABLE EQUATE - BRANCH IF SO; ACCB WILL BE 

*SET TO THE VALUE OF THE BASIC VARIABLE IN THE COMMAND 

♦STRING WHICH MUST BE NUMERIC, LESS THAN 256 

*AND THE VARIABLE MUST BE FOLLOWED BY A SEMICOLON. 

CLEAR CARRY IF NUMERIC 
FC ERROR IF NON NUMERIC 

UNITS DIGIT = 
DECIMAL ASCII VALUE OFF OF THE COMMAND STRING 
IN ACCB 

MASK OFF ASCII 

SAVE VALUE TEMPORARILY 

BASE 10 

MULT BY DIGIT 

* FC ERROR IF RESULT > 255 
GET TEMPORARY VALUE 

FC ERROR IF RESULT > 255 

* RETURN IF NO COMMANDS LEFT 
GET ANOTHER COMMAND 
CLEAR CARRY IF NUMERIC 
BRANCH IF MORE NUMERIC DATA 
*ADD ONE TO COMMAND COUNTER AND 
*MOVE COMMAND STRING BACK ONE 



L9BAC 


BSR 


L9B98 




CMPA 


#• + • 




BEQ 


L9BEE 




CMPA 


#■-■ 




BEQ 


L9BF2 




CMPA 


#■>■ 




BEQ 


L9BFC 




CMPA 


#■<■ 




BEQ 


L9BF7 


L9BBE 


CMPA 


#■ = ■ 


* 


BEQ 


L9C01 


* 


JSR 


L90AA 




BLO 


L9BEB 




CLRB 




* STRIP 


A DECIMAL AS( 


* AND RETURN 1 


BINARY \ 


L9BC8 


SUBA 


#'0' 




STA 


VD7 




LDA 


#10 




MUL 






TSTA 






BNE 


L9BEB 




ADDB 


VD7 




BLO 


L9BEB 




TST 


VD8 




BEQ 


L9BF1 




JSR 


L9B98 




JSR 


L90AA 




BCC 


L9BC8 


L9BE2 


INC 


VD8 




LDX 


VD9 




LEAX 


$-01, X 




STX 


VD9 




RTS 




L9BEB 


JMP 


LB44A 


L9BEE 


INCB 






BEQ 


L9BEB 


L9BF1 


RTS 




L9BF2 


TSTB 






BEQ 


L9BEB 




DECB 






RTS 




L9BF7 


TSTB 





FC ERROR 
ADD ONE TO PARAMETER 
FC ERROR IF ADDING 1 TO 255 



* FC ERROR IF TRYING TO DECREMENT 
SUBTRACT ONE FROM PARAMETER 
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3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
387B 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
388B 
3881 
3882 
3883 



3887 
3888 
3889 
3890 
3891 
3892 
3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 



9BF8 
9BFA 
9BFB 
9BFC 
9BFD 
9BFF 
9C00 
9C01 
9C03 
9C05 
9C08 
9C0A 
9C0D 
9C0F 
9C12 
9C14 
9C16 
9C18 



9C1B 
9C1D 
9C1F 
9C22 
9C25 
9C27 
9C2A 
9C2C 
9C2E 
9C30 
9C32 
9C34 
9C36 
9C39 
9C3B 
9C3D 



27 Fl 

54 

39 

5D 

2B EC 

58 

39 

34 60 
8D 16 

BD B7 0E 

35 E0 

BD 9C IB 
C6 02 
BD AC 33 
D6 D8 
9E D9 
34 14 
7E 9A 32 



9E D9 

34 10 

BD 9B 98 
BD B3 A2 

25 C4 

BD 9B 98 
81 3B 

26 F9 

35 10 
DE A6 

34 40 
9F A6 

BD B2 84 

35 10 
9F A6 
39 



BEQ 


L9BEB 


LSRB 




RTS 




TSTB 




BMI 


L9BEB 


ASLB 




RTS 




PSHS 


U,Y 


BSR 


L9C1B 


JSR 


LB70E 


PULS 


Y,U,PC 


JSR 


L9C1B 


LDB 


#2 


JSR 


LAC33 


LDB 


VD8 


LDX 


VD9 


PSHS 


X,B 


JMP 


L9A32 


RET THE PRES 


LDX 


VD9 


PSHS 


X 


JSR 


L9B98 


JSR 


LB3A2 


BLO 


L9BEB 


JSR 


L9B98 


CMPA 


#' ;' 


BNE 


L9C27 


PULS 


X 


LDU 


CHARAD 


PSHS 


U 


STX 


CHARAD 


JSR 


LB284 


PULS 


X 


STX 


CHARAD 


RTS 





* FC ERROR IF DIVIDING BY ZERO 
DIVIDE BY TWO 



* FC ERROR IF RESULT WOULD BE > 255 
MULTIPLY BY TWO 

SAVE U,Y REGISTERS 

INTERPRET COMMAND STRING AS IF IT WERE A BASIC VARIABLE 

CONVERT FPA0 TO AN INTEGER VALUE IN ACCB 

RESTORE U,Y REGISTERS AND RETURN 

EVALUATE AN EXPRESSION IN THE COMMAND STRING 

=ROOM FOR 4 BYTES ON STACK? 

* GET THE CURRENT COMMAND LENGTH AND POINTER AND 

* SAVE THEM ON THE STACK 

GO INTERPRET AND PROCESS THE NEW PLAY SUB COMMAND 

STRING AS IF IT WERE A BASIC VARIABLE 
GET COMMAND POINTER 
SAVE IT 

GET A COMMAND CHARACTER 
SET CARRY IF NOT ALPHA 

FC ERROR IF NOT ALPHA - ILLEGAL VARIABLE NAME 
GET A COMMAND CHARACTER 
CHECK FOR SEMICOLON - COMMAND SEPARATOR 
BRANCH UNTIL FOUND 
GET SAVED COMMAND POINTER 
GET BASIC S INPUT POINTER 
SAVE IT 

PUT PLAY COMMAND POINTER IN PLACE OF BASIC S INPUT POINTER 
EVALUATE AN ALPHA EXPRESSION P GET NEW STRING DESCRIPTOR 

* RESTORE BASIC S INPUT POINTER 



MORE OF EXTENDED BASIC S IRO ROUTINE 



9C3E 4F 
9C3F IF 8B 
9C41 DC E3 
9C43 10 27 00 74 
9C47 93 05 
9C49 DO E3 
9C4B 22 00 
9C4D 0F E3 
9C4F 0F E4 
9C51 35 02 
9C53 10 EE 67 

9C56 84 7F 
9C58 34 02 



CLRA 




TFR 


A, DP 


LDD 


PLYTMR 


LBEQ 


LA9BB 


SUBD 


VD5 


STD 


PLYTMR 


BHI 


L9C5A 


CLR 


PLYTMR 


CLR 


PLYTMR+1 


PULS 


A 


LOS 


$07, S 


ANDA 


#$7F 


PSHS 


A 



CLEAR ACCA 

SET THE DIRECT PAGE TO ZERO 

GET THE PLAY TIMER 

BRANCH TO COLOR BASIC S IRO ROUTINE IF ZERO 

SUBTRACT OUT PLAY INTERVAL 

SAVE THE NEW TIMER VALUE 

BRANCH IF PLAY COMMAND NOT DONE 

RESET MSB OF PLAY TIMER IF DONE 

RESET LSB OF PLAY TIMER 

GET THE CONDITION CODE REG 

♦LOAD THE STACK POINTER WITH THE CONTENTS OF THE U REGISTER 

♦WHICH WAS STACKED WHEN THE INTERRUPT WAS HONORED. 

CLEAR E FLAG - MAKE COMPUTER THINK THIS WAS AN FIRO 

SAVE CONDITION CODE 

THE RTI WILL NOW NOT RETURN TO WHERE IT WAS 
INTERRUPTED FROM - IT WILL RETURN TO THE MAIN PLAY 
COMMAND INTERPRETATION LOOP. 



* TABLE 
9C5B 0A 0C 01 03 05 06 L9C5B 
9C61 08 



)F NUMERICAL NOTE VALUES FOR LETTER NOTES 
FCB 10,12,1,3,5,6,8 NOTES A, 



TABLE OF DELAYS FOR OCTAVE 1 



9C62 01 A8 01 90 01 7A L9C62 FOB 

9C68 01 64 01 50 01 3D FOB 

9C6E 01 2B 01 lA 01 0A FOB 

9C74 00 FB 00 ED 00 OF FOB 



$01A8,$0190,$017A 
$0164, $0150, $0130 
$012B,$011A,$010A 
$00FB,$00ED,$00DF 



TABLE OF DELAYS FOR OCTAVE 2 



9C7A 00 03 00 C7 00 BB L9C7A 
9C80 00 Bl 00 A6 00 90 
9C86 00 94 00 8B 00 83 
9C8C 00 7C 00 75 00 6E 



9C92 A6 9C 93 8B 83 7B L9C92 

9C98 74 60 67 61 5B 56 

9C9E 51 4C 47 43 3F 3B 

9CA4 37 34 31 2E 2B 28 

9CAA 26 23 21 IF ID IB 

9CB0 19 18 16 14 13 12 



9CB6 9E 8A 

9CB8 C6 01 

9CBA 34 14 

9CBC 07 C2 

9CBE 9F 05 

9CC0 BD 95 9A 

9CC3 BD Bl 56 

9CC6 BD B6 54 

9CC9 20 08 

9CCB BD 9B 98 

9CCE 7E 9B BE 



FOB 
FOB 
FOB 
FOB 



$00D3,$00C7, 
$00B1,$00A6,$009D 
$0094, $008B, $0083 
$007C,$0075,$006E 



3F DELAYS FOR 


OCTAVES 


3,4 


5 


FCB 


$A6,$9C 


$93 


$8B 


$83 


$7B 


FCB 


$74, $60 


$67 


$61 


$5B 


$56 


FCB 


$51,$4C 


$47 


$43 


$3F 


$3B 


FCB 


$37, $34 


$31 


$2E 


$2B 


$28 


FCB 


$26, $23 


$21 


$1F 


$10 


$1B 


FCB 


$19, $18 


$16 


$14 


$13 


$12 


LDX 


ZERO 










LDB 


#$01 










PSHS 


X,B 










STB 


SETFLG 










STX 


VD5 










JSR 


L959A 










JSR 


LB156 










JSR 


LB654 










BRA 


L9CD3 










JSR 


L9B98 










JMP 


L9BBE 











DELAYS FOR OCTAVE 1 



DELAYS FOR OCTAVE 2 



DELAYS FOR OCTAVES 3,4,5 



* X=0. ACCB=1; END OF DRAW COMMAND LINE VALUES - 

* WHEN THESE VALUES ARE PULLED OFF THE 

* STACK, THE DRAW COMMAND WILL END 
SET PSET/PRESET FLAG TO PSET 
CLEAR UPDATE FLAG AND DRAW FLAG 
SET ACTIVE COLOR BYTE 

EVALUATE EXPRESSION 

GET THE LENGTH AND ADDRESS OF THE COMMAND STRING 

INTERPRET THE COMMAND STRING 

GET NEXT CHARACTER FROM COMMAND LINE 

EVALUATE A DECIMAL VALUE IN COMMAND LINE 
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3937 


9CD1 


35 


14 


L9CD1 


PULS 


B,X 


3938 


9CD3 


D7 


D8 


L9CD3 


STB 


VD8 


3939 


9CD5 


27 


FA 




BEQ 


L9CD1 


3940 


9CD7 


9F 


D9 




STX 


VD9 


3941 


9CD9 


10 


27 00 EA 




LBEQ 


L9DC7 


3942 


9CDD 


0D 


D8 


L9CDD 


TST 


VD8 


3943 


9CDF 


27 


F0 




BEQ 


L9CD1 


3944 


9CE1 


BD 


9B 98 




JSR 


L9B98 


3945 


9CE4 


81 


3B 




CM PA 


#■ ;■ 


3946 


9CE6 


27 


F5 




BEQ 


L9CDD 


3947 


9CE8 


81 


27 




CM PA 


#■ ■ ■ 


3948 


9CEA 


27 


Fl 




BEQ 


L9CDD 


3949 


9CEC 


81 


4E 




CM PA 


#'N' 


3950 


9CEE 


26 


04 




BNE 


L9CF4 


3951 


9CF0 


03 


D5 




COM 


VD5 


3952 


9CF2 


20 


E9 




BRA 


L9CDD 


3953 


9CF4 


81 


42 


L9CF4 


CMPA 


#'B' 


3954 


9CF6 


26 


04 




BNE 


L9CFC 


3955 


9CF8 


03 


D6 




COM 


VD6 


3956 


9CFA 


20 


El 




BRA 


L9CDD 


3957 


9CFC 


81 


58 


L9CFC 


CMPA 


#'X' 


3958 


9CFE 


10 


27 00 96 




LBEQ 


L9D98 


3959 


9D02 


81 


4D 




CMPA 


#'M' 


3960 


9D04 


10 


27 01 2A 




LBEQ 


L9E32 


3961 


9D08 


34 


02 




PSHS 


A 


3962 


9D0A 


C6 


01 




LOB 


#$01 


3963 


9D0C 


0D 


D8 




TST 


VD8 


3964 


9D0E 


27 


11 




BEQ 


L9D21 


3965 


9D10 


BD 


9B 98 




JSR 


L9B98 


3966 


9D13 


BD 


B3 A2 




JSR 


LB3A2 


3967 


9D16 


34 


01 




PSHS 


CC 


3968 


9D18 


BD 


9B E2 




JSR 


L9BE2 


3969 


9D1B 


35 


01 




PULS 


CC 


3970 


9D1D 


24 


02 




BCC 


L9D21 


3971 


9D1F 


8D 


AA 




BSR 


L9CCB 


3972 


9D21 


35 


02 


L9D21 


PULS 


A 


3973 


9D23 


81 


43 




CMPA 


#'C' 


3974 


9D25 


27 


28 




BEQ 


L9D4F 


3975 


9D27 


81 


41 




CMPA 


#'A' 


3976 


9D29 


27 


2E 




BEQ 


L9D59 


3977 


9D2B 


81 


53 




CMPA 


#'S' 


3978 


9D2D 


27 


32 




BEQ 


L9D61 


3979 


9D2F 


81 


55 




CMPA 


#'U' 


3980 


9D31 


27 


5C 




BEQ 


L9D8F 


3981 


9D33 


81 


44 




CMPA 


#'D' 


3982 


9D35 


27 


55 




BEQ 


L9D8C 


3983 


9D37 


81 


4C 




CMPA 


#'L' 


3984 


9D39 


27 


4C 




BEQ 


L9D87 


3985 


9D3B 


81 


52 




CMPA 


#'R' 


3986 


9D3D 


27 


43 




BEQ 


L9D82 


3987 


9D3F 


80 


45 




SUBA 


#'E' 


3988 


9D41 


27 


2F 




BEQ 


L9D72 


3989 


9D43 


4A 






DECA 




3990 


9D44 


27 


27 




BEQ 


L9D6D 


3991 


9D46 


4A 






DECA 




3992 


9D47 


27 


32 




BEQ 


L9D7B 


3993 


9D49 


4A 






DECA 




3994 


9D4A 


27 


ID 




BEQ 


L9D69 


3995 


9D4C 


7E 


B4 4A 


L9D4C 


JMP 


LB44A 


3996 














3997 








* CHANGE COLOR 


3998 


9D4F 


BD 


95 5D 


L9D4F 


JSR 


L955D 


3999 


9D52 


D7 


B2 




STB 


FORCOL 


4000 


9D54 


BD 


95 9A 




JSR 


L959A 


4001 


9D57 


20 


84 


L9D57 


BRA 


L9CDD 


4002 








* CHANGE ANGLE 


4003 


9D59 


CI 


04 


L9D59 


CMPB 


#$04 


4004 


9D5B 


24 


EF 




BCC 


L9D4C 


4005 


9D5D 


D7 


E8 




STB 


ANGLE 


4006 


9D5F 


20 


F6 




BRA 


L9D57 


4007 








* CHANGE SCALE 


4008 


9D61 


CI 


3F 


L9D61 


CMPB 


#63 


4009 


9D63 


24 


E7 




BCC 


L9D4C 


4010 


9D65 


D7 


E9 




STB 


SCALE 


4011 


9D67 


20 


EE 




BRA 


L9D57 


4012 














4013 








* 315 


DEGREES 




4014 


9D69 


4F 




L9D69 


CLRA 




4015 


9D6A 


8D 


58 




BSR 


L9DC4 


4016 


9D6C 


21 




L9D6C 


FCB 


SKPl 


4017 








* 135 


DEGREES 




4018 


9D6D 


4F 




L9D6D 


CLRA 




4019 


9D6E 


IF 


01 




TFR 


D,X 


4020 


9D70 


20 


59 




BRA 


L9DCB 


4021 








* 45 DEGREES 




4022 


9D72 


4F 




L9D72 


CLRA 




4023 


9D73 


IF 


01 




TFR 


D,X 


4024 


9D75 


8D 


4D 




BSR 


L9DC4 


4025 


9D77 


IE 


01 




EXG 


D,X 


4026 


9D79 


20 


50 




BRA 


L9DCB 


4027 








* 225 


DEGREES 




4028 


9D7B 


4F 




L9D7B 


CLRA 




4029 


9D7C 


IF 


01 




TFR 


D,X 


4030 


9D7E 


8D 


44 




BSR 


L9DC4 


4031 


9D80 


20 


49 




BRA 


L9DCB 


4032 








* GO RIGHT 





GET NEXT COMMAND LINE TO BE INTERPRETED OFF THE STACK 

SET COMMAND LENGTH CTR 

GET NEW COMMAND LINE IF 

SET COMMAND LINE ADDRESS 

EXIT ROUTINE IF ADDRESS = 

TEST COMMAND LENGTH CTR 

GET NEW LINE IF 

GET A COMMAND CHAR 

CHECK FOR SEMICOLON 

IGNORE SEMICOLONS 

CHECK FOR APOSTROPHES 

IGNORE APOSTROPHES 

UPDATE CHECK? 

NO 

TOGGLE UPDATE FLAG = UPDATE, FF = NO UPDATE 

GET NEXT COMMAND 

CHECK DRAW FLAG? 

NO 

TOGGLE DRAW FLAG = DRAW LINE, FF = DON T DRAW LINE 

GET NEXT COMMAND 

SUBSTRING? 

GO EXECUTE A COMMAND 

MOVE THE DRAW POSITION ? 

YES; GO MOVE IT 

SAVE CURRENT COMMAND 

DEFAULT VALUE IF NO NUMBER FOLLOWS COMMAND 

CHECK COMMAND LENGTH CTR 

BRANCH IF NO COMMANDS LEFT 

GET A COMMAND CHAR 

SET CARRY IF NOT ALPHA 

SAVE CARRY FLAG 

MOVE COMMAND POINTER BACK ONE 

RESTORE CARRY FLAG 

BRANCH IF NEXT COMMAND IS ALPHA 

EVALUATE A DECIMAL COMMAND LINE VALUE - RETURN VALUE IN ACCB 

GET CURRENT COMMAND BACK 

CHANGE COLOR? 

YES 

CHANGE ANGLE? 

YES 

CHANGE SCALE? 

YES 

GO UP? 

YES 

GO DOWN? 

YES 

GO LEFT? 

YES 

GO RIGHT? 

YES 

MASK OFF ASCII FOR LETTER E-H COMMAND CHECKS 

BRANCH IF E (45 DEGREES) 

♦BRANCH IF F (135 DEGREES) 

=BRANCH IF G (225 DEGREES) 

♦BRANCH IF H (31S DEGREES) 
FC ERROR IF ILLEGAL COMMAND 



ADJUST COLOR CODE FOR PROPER PMODE 
SAVE NEW FOREGROUND COLOR 
SET COLOR BYTES (WCOLOR,ALLCOL) 
GO PROCESS ANOTHER COMMAND 

ONLY 0-3 ARE LEGAL 

FC ERROR IF ANGLE NUMBER > 3 
SAVE DRAW ANGLE 
GO PROCESS ANOTHER COMMAND 

ONLY 0-63 ARE LEGAL 

FC ERROR IF SCALE > 63 
SAVE DRAW SCALE 
GO PROCESS ANOTHER COMMAND 



♦NEGATE ACCD - MAKE HORIZONTAL 

♦DIFFERENCE NEGATIVE 

SKIP ONE BYTE - KEEP HORIZONTAL DIFFERENCE NEGATIVE 

CLEAR MS BYTE OF HORIZONTAL DIFFERENCE 

COPY HORIZONTAL DIFFERENCE TO VERTICAL DIFFERENCE 

GO MOVE THE DRAW POSITION 

CLEAR MS BYTE OF HORIZONTAL DIFFERENCE 
COPY HORIZONTAL DIFFERENCE TO VERTICAL DIFFERENCE 
NEGATE ACCD - MAKE HORIZONTAL DIFFERENCE NEGATIVE 
EXCHANGE HORIZONTAL AND VERTICAL DIFFERENCES 
GO MOVE THE DRAW POSITION 

CLEAR MS BYTE OF HORIZONTAL DIFFERENCE 
COPY HORIZONTAL DIFFERENCE TO VERTICAL DIFFERENCE 
NEGATE ACCD - MAKE HORIZONTAL DIFFERENCE NEGATIVE 
GO MOVE THE DRAW POSITION 
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4033 


9D82 


4F 




4034 


9D83 


9E 


8A 


4035 


9D85 


20 


44 


4036 








4037 


9D87 


4F 




4038 


9D88 


8D 


3A 


4039 


9D8A 


20 


F7 


4040 








4041 


9D8C 


4F 




4042 


9D8D 


20 


03 


4043 








4044 








4045 


9D8F 


4F 




4046 


9D90 


8D 


32 


4047 


9D92 


9E 


8A 


4048 


9D94 


IE 


10 


4049 


9D96 


20 


33 


4050 








4051 


9D98 


BD 


9C IB 


4052 


9D9B 


C6 


02 


4053 


9D9D 


BD 


AC 33 


4054 


9DA0 


D6 


D8 


4055 


9DA2 


9E 


D9 


4056 


9DA4 


34 


14 


4057 


9DA6 


7E 


9C C6 


4058 








4059 








4060 


9DA9 


D6 


E9 


4061 


9DAB 


27 


IB 


4062 


9DAD 


4F 




4063 


9DAE 


IE 


01 


4064 


9DB0 


A7 


E2 


4065 


9DB2 


2A 


02 


4066 


9DB4 


8D 


0D 


4067 


9DB6 


BD 


9F B5 


4068 


9DB9 


IF 


30 


4069 


9DBB 


44 




4070 


9DBC 


56 




4071 


9DBD 


44 




4072 


9DBE 


56 




4073 


9DBF 


6D 


E0 


4074 


9DC1 


2A 


04 


4075 








4076 


9DC3 


40 




4077 


9DC4 


50 




4078 


9DC5 


82 


00 


4079 


9DC7 


39 




4080 


9DC8 


IF 


10 


4081 


9DCA 


39 




4082 








4083 








4084 








4085 


9DCB 


34 


06 


4086 


9DCD 


8D 


DA 


4087 


9DCF 


35 


10 


4088 


9DD1 


34 


06 


4089 


9DD3 


8D 


D4 


4090 


9DD5 


35 


10 


4091 


9DD7 


10 


9E E8 


4092 


9DDA 


34 


20 


4093 


9DDC 


6D 


E4 


4094 


9DDE 


27 


08 


4095 


9DE0 


IE 


10 


4096 


9DE2 


8D 


DF 


4097 


9DE4 


6A 


E4 


4098 


9DE6 


20 


F4 


4099 


9DE8 


35 


20 


4100 


9DEA 


DE 


8A 


4101 


9DEC 


D3 


C7 


4102 


9DEE 


2B 


02 


4103 


9DF0 


IF 


03 


4104 


9DF2 


IF 


10 


4105 


9DF4 


9E 


8A 


4106 


9DF6 


D3 


C9 


4107 


9DF8 


2B 


02 


4108 


9DFA 


IF 


01 


4109 








4110 








4111 








4112 


9DFC 


11 


83 01 


4113 


9E00 


25 


03 


4114 


9E02 


CE 


00 FF 


4115 


9E05 


8C 


00 C0 


4116 


9E08 


25 


03 


4117 


9E0A 


8E 


00 BF 


4118 


9E0D 


DC 


C7 


4119 


9E0F 


DD 


BD 


4120 


9E11 


DC 


C9 


4121 


9E13 


DD 


BF 


4122 


9E15 


9F 


C5 


4123 


9E17 


DF 


C3 


4124 


9E19 


0D 


D5 


4125 


9E1B 


26 


04 


4126 


9E1D 


9F 


C9 


4127 


9E1F 


DF 


C7 


4128 


9E21 


BD 


94 20 



L9D82 CLRA 

L9D83 LDX 

BRA 

* GO LEFT 
L9D87 CLRA 

BSR 
BRA 

* GO DOWN 



ZERO 
L9DCB 



L9DC4 
L9D83 



L9D8C 



CLRA 
BRA 



CLEAR MS BYTE OF HORIZONTAL DIFFERENCE 

X = 0; VERT DIFF = 

GO MOVE THE DRAW POSITION 

♦NEGATE ACCD - MAKE THE HORIZONTAL 

♦DIFFERENCE NEGATIVE 

MAKE VERTICAL DIFFERENCE ZERO AND MOVE THE DRAW POSITION 

CLEAR MS BYTE OF HORIZONTAL DIFFERENCE 

*MAKE VERTICAL DIFFERENCE = 0, EXCHANGE HORIZONTAL AND 

♦VERTICAL DIFFERENCES AND MOVE THE DRAW POSTION 



* GO UP 
L9D8F 



L9D92 



CLRA 

BSR 

LDX 

EXG 

BRA 



L9DC4 
ZERO 
X.D 
L9DCB 

* EXECUTE A COMMAND SUB STRING 
L9D98 JSR L9C1B 

LDB #$02 
JSR LAC33 
LDB VD8 
LDX VD9 
PSHS X,B 
JMP L9CC6 

* MULTIPLY HOR OR VER DIFFERENCE BY SCALE FACTOR 

* DIVIDE PRODUCT BY 4 AND RETURN VALUE IN ACCD 



*NEGATE ACCD - MAKE THE HORIZONTAL 

'DIFFERENCE NEGATIVE 

X = 0; HORZ DIFF = 

EXCHANGE THE HORIZONTAL AND VERTICAL DIFFERENCES 

GO MOVE THE DRAW POSITION 



INTERPRET CURRENT COMMAND AS IF IT WERE A BASIC VARIABLE 



=FOUR BYTES OF FREE RAM LEFT? 



* GET CURRENT COMMAND LENGTH AND POINTER 

* AND SAVE THEM ON THE STACK 
EVALUATE NUMERICAL VALUE IN COMMAND LINE 



L9DA9 



LDB 

BEO 

CLRA 

EXG 

STA 

BPL 

BSR 

JSR 

TFR 

LSRA 

RORB 

LSRA 

RORB 

TST 

BPL 



SCALE 
L9DC8 

D,X 

,-S 

L9DB6 

L9DC3 

L9FB5 

U,D 



,S+ 
L9DC7 



GET DRAW SCALE AND BRANCH IF ZERO - THIS WILL CAUSE A 

ZERO DEFAULT TO FULL SCALE 

CLEAR MS BYTE 

EXCHANGE DIFFERENCE AND SCALE FACTOR 

SAVE MS BYTE OF DIFFERENCE ON STACK (SIGN INFORMATION) 

BRANCH IF POSITIVE DIFFERENCE 

NEGATE ACCD 

MULT DIFFERENCE BY SCALE FACTOR 

SAVE 2 MS BYTES IN ACCD 



♦DIVIDE ACCD BY 4 - EACH SCALE INCREMENT IS 1/4 FULL SCALE 
=CHECK SIGN OF ORIGINAL DIFFERENCE AND 
=RETURN IF POSITIVE 



NEGATE ACCUMULATOR D 



L9DC3 
L9DC4 



L9DC7 
L9DC8 



NEGA 

NEGB 

SBCA #$00 

RTS 

TFR X,D 

RTS 
MOVE THE DRAW POSITION - ADD THE ORTHOGONAL DIFFERENCES 
IN ACCD (HORIZONTAL) AND X (VERTICAL) TO 
THE CURRENT POSITION; DRAW A LINE AFTER THE MOVE 



NEGATE ACCUMULATOR D IF ACCA=0 



TRANSFER UNCHANGED DIFFERENCE TO ACCD 



PSHS 

BSR 

PULS 

PSHS 

BSR 

PULS 

LDY 

PSHS 

TST 

BEO 

EXG 

BSR 

DEC 

BRA 

PULS 

LOU 

ADDD 

BMI 

TFR 

TFR 

LDX 

ADDD 

BMI 

TFR 



B,A 

L9DA9 

X 

B.A 

L9DA9 

X 

ANGLE 

Y 

,S 

L9DE8 

X,D 

L9DC3 

,S 

L9DDC 

Y 

ZERO 

HORDEF 

L9DF2 

D,U 

X,D 

ZERO 

VERDEF 

L9DFC 

D,X 



SAVE HORIZ DIFFERENCE 

APPLY SCALE FACTOR TO VERTICAL 

GET HORIZ DIFFERENCE 

SAVE VERT DIFFERENCE 

APPLY SCALE FACTOR TO HORIZONTAL 

GET VERT DIFFERENCE 

* GET THE DRAW ANGLE AND SCALE AND SAVE THEM ON 

* THE STACK; USE Y BECAUSE IT IS THE ONLY UNUSED REGISTER 
CHECK DRAW ANGLE 

BRANCH IF NO ANGLE 

EXCH HOR AND VER DIFFERENCES 

NEGATE ACCD 

DECR ANGLE 

CHECK ANGLE AGAIN 

PULL ANGLE AND SCALE OFF THE STACK 

U = 0; DEFAULT HOR END POSITION = 

ADD DIFFERENCE TO HORIZ START 

HORIZ COORD = IF RESULT IS NEG 

SAVE HOR END POSITION IN U 

PUT VERT DIFFERENCE IN ACCD 

X = 0; DEFAULT VER END POSITION = 

ADD DIFFERENCE TO VER START 

VER COORD = IF RESULT IS NEG 

SAVE VERT END POSITION IN X 



MOVE THE DRAW POSITION; ENTER WITH ABSOLUTE HORIZONTAL POSITION 
IN U REGISTER AND ABSOLUTE VERTICAL POSITION IN X REGISTER. 

IS HORIZ COORD WITHIN RANGE? 

YES 

NO - FORCE TO MAX VALUE 

IS VERT COORD WITHIN RANGE? 

YES 

NO - FORCE TO MAX VALUE 



CMPU 


#256 


BLO 


L9E05 


LDU 


#255 


CMPX 


#192 


BLO 


L9E0D 


LDX 


#191 


LDD 


HORDEF 


STD 


HORBEG 


LDD 


VERDEF 


STD 


VERBEG 


STX 


VEREND 


STU 


HOREND 


TST 


VD5 


BNE 


L9E21 


STX 


VERDEF 


STU 


HORDEF 


JSR 


L9420 



* COPY THE HOR AND VER POINTERS 

* INTO THE DRAW LINE START POSITION 

= SET THE DRAW LINE END POSITION 
CHECK UPDATE FLAG 
BRANCH IF NO UPDATE 
* 

* UPDATE POSITION OF DRAW POINTER 

NORMALIZE COORDS IN HOREND, VEREND AND HORBEG, VERBEG 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF EXTENDED BASIC 1.1 



ORIGINlSPECTRAL ASSOC 
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4143 


9E41 


10 


26 


FF 07 


4144 


> 9E45 


BD 


9E 


5B 


4145 


9E48 


IF 


01 
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EC 


84 
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C7 
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D4 


DC 
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C5 


E5 
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4183 
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B5 
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4184 
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4188 


9E9D 


81 
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9E9F 


26 
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4190 


9EA1 


9D 


9F 
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9EA3 


BD 


95 


22 
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BD 


93 


B2 


4193 
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BD 


93 


ID 


4194 
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AE 


C4 
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9EAE 


9F 


CB 
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9EB0 


AE 


42 




4197 


9EB2 


9F 


CD 
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9EB4 


BD 


B2 


6D 


4199 


9EB7 


BD 


B7 


3D 


4200 


9EBA 


CE 


00 


CF 


4201 


9EBD 


AF 


C4 




4202 


9EBF 


BD 


93 


20 


4203 


9EC2 


86 


01 




4204 


9EC4 


97 


C2 




4205 


9EC6 


BD 


95 


81 


4206 


9EC9 


8E 


01 


00 


4207 


9ECC 


9D 


A5 




4208 


9ECE 


27 


0F 




4209 


9ED0 


BD 


B2 


6D 


4210 


9ED3 


BD 


Bl 


41 


4211 


9ED6 


96 


4F 




4212 


9ED8 


8B 


08 




4213 


9 EDA 


97 


4F 




4214 


9EDC 


BD 


B7 


40 


4215 


9EDF 


96 


B6 




4216 


9EE1 


85 


02 




4217 


9EE3 


27 


04 




4218 


9EE5 


IF 


10 




4219 


9EE7 


30 


SB 




4220 


9EE9 


9F 


Dl 




4221 


9EEB 


C6 


01 




4222 


9EED 


D7 


C2 




4223 


9EEF 


D7 


D8 




4224 


9EF1 


BD 


9F 


E2 





TST 


VD6 




BNE 


L9E2B 




JSR 


L94A1 


L9E2B 


CLR 


VD5 




CLR 


VD6 




JMP 


L9CDD 


* SET 


THE DRAW POSn 


L9E32 


JSR 


L9B98 




PSHS 


A 




JSR 


L9E5E 




PSHS 


B.A 




JSR 


L9B98 




CMPA 


#■ ,■ 




LBNE 


L9D4C 




JSR 


L9E5B 




TFR 


D,X 




PULS 


U 




PULS 


A 




CMPA 


#■ + ■ 




BED 


L9E56 




CMPA 


#'-■ 




BNE 


L9DFC 


L9E56 


TFR 


U,D 




JMP 


L9DCB 


L9E5B 


JSR 


L9B98 


L9E5E 


CMPA 


#• + • 




BED 


L9E69 




CMPA 


#'-' 




BED 


L9E6A 




JSR 


L9BE2 


L9E69 


CLRA 




L9E6A 


PSHS 


A 




JSR 


L9CCB 




PULS 


A 




TSTA 






BEQ 


L9E78 




CLRA 






NEGB 






SBCA 


#$00 


L9E78 


RTS 





TABLE OF SINES AND COSINES FOR CIRCLE 



L9E79 


FOB 


$0000 


,$0001 


L9E7D 


FOB 


$FEC5 


,$1919 


L9E81 


FOB 


$FB16 


,$31F2 


L9E85 


FOB 


$F4FB 


,$4A51 


L9E89 


FOB 


$EC84 


,$61F9 


L9E8D 


FOB 


$E1C7 


,$78AE 


L9E91 


FOB 


$D4DC 


,$8E3B 


L9E95 


FOB 


$C5E5 


,$A269 


L9E99 


FOB 


$B506 


,$B506 



CIRCLE 

THE CIRCLE IS ACTUALLY DRAWN AS 

POLYGON. IT IS COMPOSED OF 64 



CMPA 


#'6' 


BNE 


L9EA3 


JSR 


GETNCH 


JSR 


L9522 


JSR 


L93B2 


JSR 


L931D 


LDX 


,u 


STX 


VCB 


LDX 


$02, U 


STX 


VCD 


JSR 


SYNCOMMA 


JSR 


LB73D 


LOU 


#VCF 


STX 


,u 


JSR 


L9320 


LDA 


#$01 


STA 


SETFLG 


JSR 


L9581 


LDX 


#$100 


JSR 


GETCCH 


BEO 


L9EDF 


JSR 


SYNCOMMA 


JSR 


LB141 


LDA 


FP0EXP 


ADDA 


#$08 


STA 


FP0EXP 


JSR 


LB740 


LDA 


PMODE 


BITA 


#$02 


BEQ 


L9EE9 


TFR 


X,D 


LEAX 


D,X 


STX 


VDl 


LDB 


#$01 


STB 


SETFLG 


STB 


VD8 


JSR 


L9FE2 



GET DRAW FLAG 

BRANCH IF NO DRAW 

DRAW A LINE FROM (HORBEG, VERBEG) TO (HOREND, VEREND) 

RESET UPDATE FLAG 

RESET DRAW FLAG 

GO GET ANOTHER COMMAND 



GET A CHAR FROM COMMAND LINE 

SAVE CHARACTER 

EVALUATE HORIZ DIFFERENCE 

SAVE IT ON STACK 

GET A CHAR FROM COMMAND LINE 

CHECK FOR COMMA 

FC ERROR IF NO COMMA 
EVALUATE VERT DIFFERENCE 
SAVE VERT DIFFERENCE IN X 
GET HORIZ DIFFERENCE IN U 
GET FIRST COMMAND CHARACTER 

*IF FIRST COMMAND CHAR WAS EITHER + OR - , TREAT 
*THE VALUES IN U S X AS DIFFERENCES AND MOVE 
'POINTER, OTHERWISE TREAT U S X AS AN ABSOLUTE 
'POSITION AND MOVE THE CURRENT POSITION THERE. 
PUT HORIZ DIFFERENCE IN ACCD 
GO MOVE THE DRAW POSITION 

GET A CHAR FROM COMMAND LINE 

♦CHECK FOR A LEADING PLUS SIGN (RELATIVE MOTION) 

*AND BRANCH IF RELATIVE 

=CHECK FOR A LEADING MINUS SIGN (RELATIVE MOTION) 

=AND BRANCH IF RELATIVE 

MOVE COMMAND STRING BACK ONE IF NOT RELATIVE MOTION 

ACCA = IS + ; ACCA <> IS -' 

SAVE ADD/SUB FLAG 

EVALUATE DECIMAL NUMBER IN COMMAND STRING - RETURN VALUE IN ACCB 

GET ADD/SUB FLAG 

CHECK IT, 0:ADD, <> 0:SUB 

RETURN IF ADD 



'NEGATE ACCB INTO A TWO BYTE SIGNED VALUE IN ACCD 



SUBARC 

SUBARC 1 

SUBARC 2 

SUBARC 3 

SUBARC 4 

SUBARC 5 

SUBARC 6 

SUBARC 7 

SUBARC 8 



A 64 SIDED 
LINE COMMANDS 

CHECK FOR e SIGN 

SKIP IF NOT 

GET ANOTHER CHARACTER FROM BASIC 

GET MAX HOR S VER COORD VALUES AND PUT THEM IN VD3 AND VD5 

GET HOR S VER CENTER COORDS AND PUT IN HORBEG, VERBEG 

NORMALIZE START COORDS FOR PROPER PMODE 

GET HOR COORD 

SAVE IT 

GET VERT COORD 

SAVE IT 

SYNTAX CHECK FOR COMMA 

EVALUATE EXPRESSION RETURN VALUE IN X 

POINT U TO TEMP DATA STORAGE 

SAVE RADIUS 

NORMALIZE RADIUS 

SET TO PSET 

SAVE PSET/PRESET FLAG 

GO EVALUATE COLOR EXPRESSION AND SAVE IN WCOLOR 

HEIGHT/WIDTH RATIO DEFAULT VALUE 

GET AN INPUT CHARACTER FROM BASIC 

BRANCH IF NONE 

SYNTAX CHECK FOR COMMA 

EVALUATE EXPRESSION 

*GET FPA0 EXPONENT, ADD 8 TO IT AND RESAVE IT - THIS 

'WILL EFFECTIVELY MULTIPLY FPA0 BY 256. 

EVALUATE EXPRESSION, RETURN VALUE IN X 
GET CURRENT PMODE VALUE 
TEST FOR PMODE 0,1,4 
BRANCH IF SO 

* MULT X BY 2 -FOR PMODES 2,3 THE HOR PIXELS ARE 2X AS LONG AS 

* PMODES 0,1,4; MULT HW RATIO BY 2 TO COMPENSATE 
SAVE HW RATIO 

'SET PSET/PRESET FLAG TO PSET 

FIRST TIME FLAG - SET TO AFTER ARC DRAWN 

EVALUATE CIRCLE START POINT (OCTANT, SUBARC) 



EXTENDED BASIC UNRAVELLED II 



APPENDIX B 

DISASSEMBLY OF EXTENDED BASIC 1.1 
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D9 
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06 
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LDX 
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9F05 


9F 
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STX 


VERBEG 
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CE 
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84 
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ANDA 
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4236 


9F0C 


27 


03 






BED 
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9F0E 
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NEGB 
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CB 
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4240 


9F12 


58 
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* THE 


HW RATIO WILL ONLY MODI 
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CMPA 


#$02 


4268 


9F4B 


25 


0E 






BLO 


L9F5B 


4269 


9F4D 


81 


06 






CMPA 


#$06 


4270 


9F4F 


24 


0A 






BCC 


L9F5B 


4271 


9F51 


DC 


CB 






LDD 


VCB 


4272 


9F53 


93 


C3 






SUBD 


HOREND 


4273 


9F55 


24 


11 






BCC 


L9F68 


4274 


9F57 


4F 








CLRA 




4275 


9F58 


5F 








CLRB 




4276 


9F59 


20 


0D 






BRA 


L9F68 


4277 


9F5B 


DC 


CB 




L9F5B 


LDD 


VCB 


4278 


9F5D 


D3 


C3 






ADDD 


HOREND 


4279 


9F5F 


25 


05 






BLO 


L9F66 


4280 


9F61 


10 


93 


D3 




CMPD 


VD3 


4281 


9F64 


25 


02 






BLO 


L9F68 


4282 


9F66 


DC 


D3 




L9F66 


LDD 


VD3 


4283 


9F68 


DD 


C3 




L9F68 


STD 


HOREND 


4284 


9F6A 


A6 


E4 






LDA 


,S 


4285 


9F6C 


81 


04 






CMPA 


#$04 


4286 


9F6E 


25 


0A 






BLO 


L9F7A 


4287 


9F70 


DC 


CD 






LDD 


VCD 


4288 


9F72 


93 


C5 






SUBD 


VEREND 


4289 


9F74 


24 


11 






BCC 


L9F87 


4290 


9F76 


4F 








CLRA 




4291 


9F77 


5F 








CLRB 
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02 






BNE 
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PULS 
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LSR 


VD8 


4307 
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25 


05 






BLO 


L9F9A 
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93 


D9 
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27 
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BEQ 


L9FA6 
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* INCREMENT SUBARC CTR, IF > 
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* MULTIPLY RADIUS BY SIN/COS 



FY THE VERT COORD 



SAVE START POINT 

EVALUATE CIRCLE END POINT (OCTANT, SUBARC) 

SAVE END POINT 

GET START POINT 

STORE CURRENT CIRCLE POSITION 

* MOVE HOR, VER COORDS FROM HOREND, VEREND TO 

* HORBEG, VERBEG R MOVE OLD END COORDINATES 

* NEW START COORDINATES 

POINT TO TABLE OF SINES S COSINES 
=GET OCTANT NUMBER 
=BRANCH IF EVEN 

'CONVERT 0-7 TO 8-1 FOR ODD OCTANT NUMBERS 

=FOUR BYTES/TABLE ENTRY 

POINT U TO CORRECT TABLE ENTRY 

SAVE SIN/COS TABLE ENTRY 

CALCULATE HORIZ OFFSET 

GET SIN/COS TABLE PTR 

MOVE TO COSINE (VERT) 

SAVE HORIZ OFFSET 

CALCULATE VERT OFFSET 

PUT HORIZ OFFSET IN Y 



*BRANCH IF OCTANT 0,3,4,7 

*BRANCH IF OCTANT 0,3,4,7 
SWAP HOR AND VERT OFFSETS 
SAVE HORIZ OFFSET 

LOAD X WITH THE CALCULATED VERT OFFSET 

GET HW RATIO 

MULT VERT OFFSET BY HW RATIO 

TRANSFER THE PRODUCT TO ACCD 

CHECK OVERFLOW FLAG AND GET MSB RESULT 

FC ERROR IF RESULT > 255 
SAVE DELTA VER MBS 
LSB RESULT TO ACCA 
SAVE DELTA VER LSB 
* 

* BRANCH IF OCTANT = 0,1,6,7 (SUBARC HOR END 

* POINT >= HOR CENTER) 

= BRANCH IF OCTANT = 0,1,6,7 (SUSARC HOR END 
= POINT >= HOR CENTER) 
GET HOR COORD OF CENTER 
SUBTRACT HORIZONTAL DIFFERENCE 
BRANCH IF NO UNDERFLOW 

* IF NEW HOR < 0, FORCE IT TO BE 
SAVE NEW COORD 

GET HOR COORD OF CENTER 

ADD HORIZONTAL DIFFERENCE 

BRANCH IF OVERFLOW 

COMPARE TO MAX HOR COORD 

BRANCH IF < MAX HOR 

GET MAX HOR COORD 

SAVE NEW HORIZ SU8ARC END COORD 

* BRANCH IF OCTANT = 0,1,2,3 (SUBARC VERT END 

* POINT >= VERT CENTER) 
GET VER COORD OF CENTER 
SUBTRACT VERTICAL DIFFERENCE 
BRANCH IF NO UNDERFIOW 



*IF NEW VERT < 0, FORCE IT TO BE 

SAVE NEW COORD 

GET VER COORD OF CENTER 

ADD VERTICAL DIFFERENCE 

BRANCH IF OVERFLOW 

COMPARE TO MAX VERT COORD 

BRANCH IF < MAX VER 

GET MAX VERT COORD 

SAVE NEW VERT SUSARC END COORD 

CHECK FIRST TIME FLAG 

*DQ NOT DRAW A LINE FIRST TIME THRU - 

♦BECAUSE THE FIRST TIME YOU WOULD DRAW A LINE 

♦FROM THE CENTER TO THE FIRST POINT ON THE CIRCLE 

DRAW A LINE 

GET END COORDS 

SHIFT FIRST TIME FLAG 

DO NOT CHECK FOR END POINT AFTER DRAWING FIRST ARC 

COMPARE CURRENT POSITION TO END POINT 

CIRCLE DRAWING FINISHED 
7 THEN INCR OCTANT CTR 

INCR SUBARC CTR 

> 7? 

NO 

INCR OCTANT CTR 

RESET SUBARC CTR 

*KEEP IN RANGE OF 0-7; QNCE ACCA = B, THIS WILL MAKE ACCA = 0, 

*S0 THE END POINT WILL BE (0,0) AND THE CIRCLE ROUTINE WILL END. 

KEEP DRAWING CIRCLE 

EXIT CIRCLE ROUTINE 
VALUE AND RETURN OFFSET IN X 
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4321 


9FA7 


9E 


CF 


4322 


9FA9 


EC 


C4 


4323 


9 FAB 


27 


07 


4324 


9 FAD 


83 


00 01 


4325 


9FB0 


8D 


03 


4326 


9FB2 


IF 


21 


4327 


9FB4 


39 




4328 








4329 








433B 








4331 








4332 








4333 








4334 








4335 


9FB5 


34 


76 


4336 


9FB7 


6F 


64 


4337 


9FB9 


A6 


63 


4338 


9FBB 


3D 




4339 


9FBC 


ED 


66 


4340 


9FBE 


EC 


61 


4341 


9FC0 


3D 




4342 


9FC1 


EB 


66 


4343 


9FC3 


89 


00 


4344 


9FC5 


ED 


65 


4345 


9FC7 


E6 


E4 


4346 


9FC9 


A6 


63 


4347 


9FCB 


3D 




4348 


9FCC 


E3 


65 


4349 


9FCE 


ED 


65 


4350 


9FD0 


24 


02 


4351 


9FD2 


6C 


64 


4352 


9FD4 


A6 


E4 


4353 


9FD6 


E6 


62 


4354 


9FD8 


3D 




4355 


9FD9 


E3 


64 


4356 


9FDB 


ED 


64 


4357 


9FDD 


35 


F6 


4358 


9FDF 


7E 


94 Al 


4359 








4360 








4361 








4362 


9FE2 


5F 




4363 


9FE3 


9D 


A5 


4364 


9FE5 


27 


11 


4365 


9FE7 


BD 


B2 6D 


4366 


9FEA 


BD 


Bl 41 


4367 


9FED 


96 


4F 


4368 


9FEF 


8B 


06 


4369 


9FF1 


97 


4F 


4370 


9FF3 


BD 


B7 0E 


4371 


9FF6 


C4 


3F 


4372 


9FF8 


IF 


98 


4373 


9FFA 


C4 


07 


4374 


9FFC 


44 




4375 


9FFD 


44 




4376 


9FFE 


44 




4377 


9FFF 


39 





L9FA7 LDX VCF 

LDD ,U 

BED L9FB4 

SUBD #1 

BSR L9FB5 

TFR Y.X 
L9FB4 RTS 

* MULTIPLY (UNSIGNED) TWO 16 BIT NUMBERS TOGETHER - 

* ENTER WITH ONE NUMBER IN ACCD, THE OTHER IN X 

* REG. THE 4 BYTE PRODUCT WILL BE STORED IN 4,S-7,S 

* (Y, U REG ON THE STACK). I.E. (AA AB) X (XH XL) = 

* 256*AA*XH+16*(AA*XL+AB*XH)+AB*XL. THE 2 BYTE 

* MULTIPLIER AND MULTIPLICAND ARE TREATED AS A 1 

* BYTE INTEGER PART (MSB) WITH A 1 BYTE FRACTIONAL PART (LSB) 



GET RADIUS 

GET SIN/COS TABLE MODIFIER 

BRANCH IF = - OFFSET = RADIUS 

SUBTR 1 

MULT RADIUS BY SIN/COS 

RETURN RESULT IN X REG 



L9FB5 



PSHS 


U.Y.X 


CLR 


$04, S 


LDA 


$03, S 


MUL 




STD 


$06, S 


LDD 


$01, S 


MUL 




ADDB 


$06, S 


ADCA 


#$00 


STD 


$05, S 


LDB 


,s 


LDA 


$03, S 


MUL 




ADDD 


$05, S 


STD 


$05, S 


BCC 


L9FD4 


INC 


$04, S 


LDA 


,s 


LDB 


$02, S 


MUL 




ADDD 


$04, S 


STD 


$04, S 


PULS 


A,B,X 


JMP 


L94A1 



B,A 



SAVE REGISTERS AND RESERVE STORAGE SPACE ON THE STACK 
RESET OVERFLOW FLAG 



= CALCULATE ACCB*XL, STORE RESULT IN 6,S 



CALCULATE ACCB*XH 



= ADD THE CARRY FROM THE 1ST MUL TO THE RESULT OF THE 2ND MUL 



* CALCULATE ACCA*XL 

= ADD RESULT TO TOTAL OF 2 PREVIOUS MULTS 

BRANCH IF NO OVERFLOW 

SET OVERFLOW FLAG (ACCD > $FFFF) 



* CALCULATE ACCA*XH 

= ADD TO PREVIOUS RESULT 

RETURN RESULT IN U,Y 

GO DRAW A LINE FROM (HORBEG, VERBEG) TO (HOREND, VEREND) 



CALCULATE START OR END POINT WHICH IS A NUMBER FROM 



TO 63 SAVED AS AN OCTANT NUMBER (0-7) AND 



CLRB 




JSR 


GETCCH 


BEO 


L9FF8 


JSR 


SYNCOMMA 


JSR 


LB141 


LDA 


FP0EXP 


ADDA 


#$06 


STA 


FP0EXP 


JSR 


LB70E 


ANDB 


#$3F 


TFR 


B,A 


ANDB 


#$07 


LSRA 




LSRA 




LSRA 




RTS 





A SUBARC NUMBER (0-7) 
DEFAULT VALUE OF ZERO 
GET CURRENT INPUT CHAR 
BRANCH IF NONE 
SYNTAX CHECK FOR COMMA 
EVALUATE NUMERIC EXPRESSION 
GET EXPONENT OF FPA0 

ADD 6 TO EXPONENT - MULTIPLY EXPONENT BY 64 
RESAVE EXPONENT 

CONVERT FPA0 TO INTEGER IN ACCB 
MAX VALUE OF 63 
SAVE VALUE IN ACCA ALSO 
NOW ACCB CONTAINS SUBARC NUMBER 



DIVIDE ACCA BY EIGHT - OCTANT NUMBER 
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ALLCOL 


00B5 


GRPRAM 


00BC 


L81EB 


81EB 


L8316 


8316 


L857D 


857D 


ANGLE 


00E8 


HEXDOL 


8BDD 


L81F0 


81F0 


L831A 


831A 


L8581 


8581 


ARYDIS 


0008 


HORBEG 


00BD 


L81F2 


81F2 


L834D 


834D 


L858A 


858A 


ARYEND 


001F 


HORBYT 


00B9 


L81F4 


81F4 


L835E 


835E 


L858C 


858C 


ARYTAB 


001D 


HORDEF 


00C7 


L81F6 


81F6 


L8367 


8367 


L8592 


8592 


ATN 


83B0 


HOREND 


00C3 


L81F8 


81F8 


L836C 


836C 


L859D 


859D 


BAKCOL 


00B3 


INSTR 


877E 


L81FA 


81FA 


L837E 


837E 


L85AB 


85AB 


BASIC 


A000 


INT 


BCEE 


L81FC 


81FC 


L83A3 


83A3 


L85AF 


85AF 


BAWMST 


A0E8 


IROVEC 


010C 


L81FE 


81FE 


L83A6 


83A6 


L85B3 


85B3 


BEGGRP 


00BA 


L8002 


8002 


L8200 


8200 


L83AB 


83AB 


L85B4 


85B4 


BINVAL 


002B 


L8031 


8031 


L8202 


8202 


L83B8 


83B8 


L85B6 


85B6 


BLKLEN 


007D 


L80D0 


80D0 


L8204 


8204 


L83C5 


83C5 


L85C2 


85C2 


BLKTYP 


007C 


L80DD 


80DD 


L8206 


8206 


L83D7 


83D7 


L85C3 


85C3 


CASBUF 


01DA 


L80DE 


80DE 


L8208 


8208 


L83DC 


83DC 


L85C7 


85C7 


CBUFAD 


007E 


L80DF 


80DF 


L820A 


820A 


L83DF 


83DF 


L85D1 


85D1 


CFNBUF 


01D1 


L80E1 


80E1 


L820C 


820C 


L83E0 


83E0 


L85D5 


85D5 


CHARAC 


0001 


L80E3 


80E3 


L820E 


820E 


L83E1 


83E1 


L85DE 


85DE 


CHARAD 


00A6 


L80E4 


80E4 


L8210 


8210 


L83E6 


83E6 


L85F3 


85F3 


CHGFLG 


00DB 


L80E6 


80E6 


L8212 


8212 


L83EB 


83EB 


L85F5 


85F5 


CINBFL 


0070 


L80E8 


80E8 


L8214 


8214 


L83F0 


83F0 


L860F 


860F 


CINCTR 


0079 


L80FF 


80FF 


L8216 


8216 


L83F5 


83F5 


L8613 


8613 


CINPTR 


007A 


L8100 


8100 


L8218 


8218 


L83FA 


83FA 


L861E 


861E 


CIRCLE 


9E9D 


L8101 


8101 


L821A 


821A 


L83FF 


83FF 


L8625 


8625 


COLOR 


9542 


L8112 


8112 


L821C 


821C 


L8404 


8404 


L8626 


8626 


COMVEC 


0120 


L8113 


8113 


L821E 


821E 


L8409 


8409 


L862E 


862E 


COS 


8378 


L811C 


811C 


L8221 


8221 


L840E 


840E 


L8630 


8630 


CSSVAL 


00C1 


L811D 


811D 


L8224 


8224 


L8413 


8413 


L8634 


8634 


CURLIN 


0068 


L8139 


8139 


L8227 


8227 


L8418 


8418 


L8646 


8646 


DEF 


8871 


L813C 


813C 


L822A 


822A 


L841D 


841D 


L864A 


864A 


DEL 


8970 


L8148 


8148 


L822D 


822D 


L841E 


841E 


L8650 


8650 


DEVNUM 


006F 


L8154 


8154 


L8230 


8230 


L8423 


8423 


L8659 


8659 


DEVPOS 


006C 


L8165 


8165 


L8233 


8233 


L8428 


8428 


L865C 


865C 


DLBAUD 


00E6 


L8168 


8168 


L8236 


8236 


L842D 


842D 


L8665 


8665 


DLOAD 


8C18 


L8170 


8170 


L823A 


823A 


L8432 


8432 


L866B 


866B 


DOSBAS 


C000 


L817D 


817D 


L8240 


8240 


L8437 


8437 


L8679 


8679 


DOTVAL 


00E5 


L8183 


8183 


L8245 


8245 


L843C 


843C 


L867C 


867C 


DRAW 


9CB6 


L8186 


8186 


L824A 


824A 


L8441 


8441 


L8685 


8685 


EDIT 


8533 


L818A 


818A 


L8250 


8250 


L8489 


8489 


L8687 


8687 


ENDFLG 


0000 


L818E 


818E 


L8257 


8257 


L8491 


8491 


L8694 


8694 


ENDGRP 


00B7 


L8193 


8193 


L8259 


8259 


L84AC 


84AC 


L86A6 


86A6 


ESC 


001B 


L8196 


8196 


L825B 


825B 


L84C4 


84C4 


L86D6 


86D6 


EVALEXPB 


B70B 


L8199 


8199 


L825D 


825D 


L84C9 


84C9 


L86EB 


86EB 


EXBAS 


8000 


L819D 


819D 


L825F 


825F 


L84CA 


84CA 


L86FD 


86FD 


EXECJP 


009D 


L81A1 


81A1 


L8261 


8261 


L84CF 


84CF 


L870E 


870E 


EXP 


84F2 


L81A5 


81A5 


L8263 


8263 


L84D4 


84D4 


L8724 


8724 


EXPJMP 


011D 


L81AB 


81AB 


L8265 


8265 


L84D9 


84D9 


L8727 


8727 


FILSTA 


0078 


L81B1 


81B1 


L8267 


8267 


L84DE 


84DE 


L872E 


872E 


FIX 


8524 


L81B7 


81B7 


L8269 


8269 


L84E3 


84E3 


L873F 


873F 


FORCOL 


00B2 


L81BC 


81BC 


L826B 


826B 


L84E8 


84E8 


L8746 


8746 


FP0EXP 


004F 


L81C2 


81C2 


L826D 


826D 


L84ED 


84ED 


L8748 


8748 


FP0SGN 


0054 


L81C7 


81C7 


L826F 


826F 


L8501 


8501 


L8768 


8768 


FPISGN 


0061 


L81CA 


81CA 


L8271 


8271 


L8504 


8504 


L876B 


876B 


FPA0 


0050 


L81CD 


81CD 


L8285 


8285 


L8529 


8529 


L8776 


8776 


FPSBYT 


0063 


L81D1 


81D1 


L82BB 


82BB 


L852C 


852C 


L877B 


877B 


FRETOP 


0021 


L81D6 


81D6 


L82CF 


82CF 


L8538 


8538 


L879C 


879C 


GET 


9755 


L81DB 


81DB 


L82D8 


82D8 


L854D 


854D 


L87BE 


87BE 


GETCCH 


00A5 


L81DF 


81DF 


L82F1 


82F1 


L855C 


855C 


L87CD 


87CD 


GETNCH 


009F 


L81E4 


81E4 


L8310 


8310 


L855D 


855D 


L87D6 


87D6 


GIVABF 


B4F4 


L81E9 


81E9 


L8311 


8311 


L8570 


8570 


L87D8 


87D8 



Cl 
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L87D9 


87D9 


L8A9B 


8A9B 


L8D1D 


8D1D 


L8FC4 


8FC4 


L9249 


9249 


L87DF 


87DF 


L8AAC 


8AAC 


L8D26 


8D26 


L8FC6 


8FC6 


L924D 


924D 


L87EB 


87EB 


L8AB2 


8AB2 


L8D48 


8D48 


L8FD8 


8FD8 


L9256 


9256 


L8800 


8800 


L8AB9 


8AB9 


L8D58 


8D58 


L8FE3 


8FE3 


L9262 


9262 


L880A 


880A 


L8AC0 


8AC0 


L8D60 


8D60 


L8FE5 


8FE5 


L9263 


9263 


L880C 


880C 


L8AC7 


8AC7 


L8D62 


8D62 


L8FF2 


8FF2 


L926A 


926A 


L880E 


880E 


L8AD3 


8AD3 


L8D6A 


8D6A 


L8FFA 


8FFA 


L927A 


927A 


L881F 


881F 


L8ADD 


8ADD 


L8D6B 


8D6B 


L9011 


9011 


L927B 


927B 


L882E 


882E 


L8AE1 


8AE1 


L8D72 


8D72 


L9015 


9015 


L9281 


9281 


L8834 


8834 


L8AE5 


8AE5 


L8D7C 


8D7C 


L9023 


9023 


L928E 


928E 


L8845 


8845 


L8AE9 


8AE9 


L8D89 


8D89 


L902C 


902C 


L928F 


928F 


L8862 


8862 


L8AEB 


8AEB 


L8D8B 


8D8B 


L9050 


9050 


L9298 


9298 


L8866 


8866 


L8AED 


8AED 


L8DA7 


8DA7 


L9054 


9054 


L929C 


929C 


L886E 


886E 


L8AEF 


8AEF 


L8DB8 


8DB8 


L9060 


9060 


L929E 


929E 


L88A1 


88A1 


L8B13 


8B13 


L8DBC 


8DBC 


L9065 


9065 


L92A0 


92A0 


L88B1 


88B1 


L8B17 


8B17 


L8DC5 


8DC5 


L907C 


907C 


L92A2 


92A2 


L88B4 


88B4 


L8B1B 


8B1B 


L8DC9 


8DC9 


L9096 


9096 


L92A4 


92A4 


L88D9 


88D9 


L8B24 


8B24 


L8DD4 


8DD4 


L909E 


909E 


L92A6 


92A6 


L88EF 


88EF 


L8B41 


8B41 


L8DDE 


8DDE 


L90A9 


90A9 


L92C2 


92C2 


L890B 


890B 


L8B55 


8B55 


L8DE6 


8DE6 


L90AA 


90AA 


L92DD 


92DD 


L890D 


890D 


L8B67 


8B67 


L8DF6 


8DF6 


L90B2 


90B2 


L92E5 


92E5 


L890F 


890F 


L8B71 


8B71 


L8DF7 


8DF7 


L90B3 


90B3 


L92E9 


92E9 


L891C 


891C 


L8B7B 


8B7B 


L8DF9 


8DF9 


L90B8 


90B8 


L92ED 


92ED 


L8927 


8927 


L8B7F 


8B7F 


L8DFD 


8DFD 


L90BD 


90BD 


L92F3 


92F3 


L892C 


892C 


L8B8A 


8B8A 


L8E04 


8E04 


L90BF 


90BF 


L92F4 


92F4 


L8943 


8943 


L8B8C 


8B8C 


L8E0C 


8E0C 


L90CB 


90CB 


L92FC 


92FC 


L8944 


8944 


L8BAE 


8BAE 


L8E1D 


8E1D 


L90E2 


90E2 


L9303 


9303 


L8952 


8952 


L8BBE 


8BBE 


L8E25 


8E25 


L90EA 


90EA 


L9309 


9309 


L8955 


8955 


L8BC9 


8BC9 


L8E37 


8E37 


L90EE 


90EE 


L9317 


9317 


L8960 


8960 


L8BD9 


8BD9 


L8E3B 


8E3B 


L90FF 


90FF 


L931A 


931A 


L898C 


898C 


L8BE5 


8BE5 


L8E5F 


8E5F 


L9108 


9108 


L931D 


931D 


L8990 


8990 


L8BEA 


8BEA 


L8E69 


8E69 


L910D 


910D 


L9320 


9320 


L8992 


8992 


L8BFF 


8BFF 


L8E71 


8E71 


L9116 


9116 


L932C 


932C 


L8993 


8993 


L8C07 


8C07 


L8E82 


8E82 


L911B 


911B 


L9338 


9338 


L899F 


899F 


L8C0B 


8C0B 


L8E88 


8E88 


L9129 


9129 


L9349 


9349 


L89AE 


89AE 


L8C1B 


8C1B 


L8E95 


8E95 


L9130 


9130 


L9351 


9351 


L89B4 


89B4 


L8C25 


8C25 


L8EA8 


8EA8 


L913C 


913C 


L9356 


9356 


L89B8 


89B8 


L8C42 


8C42 


L8EAE 


8EAE 


L9141 


9141 


L935B 


935B 


L89BF 


89BF 


L8C44 


8C44 


L8EB4 


8EB4 


L915A 


915A 


L9366 


9366 


L89C0 


89C0 


L8C5F 


8C5F 


L8EB7 


8EB7 


L9167 


9167 


L9377 


9377 


L89D2 


89D2 


L8C62 


8C62 


L8EB9 


8EB9 


L916F 


916F 


L938F 


938F 


L89E1 


89E1 


L8C85 


8C85 


L8EBB 


8EBB 


L9177 


9177 


L939E 


939E 


L89FC 


89FC 


L8C96 


8C96 


L8ED2 


8ED2 


L9185 


9185 


L93B2 


93B2 


L8A02 


8A02 


L8C9B 


8C9B 


L8ED8 


8ED8 


L919E 


919E 


L93B8 


93B8 


L8A04 


8A04 


L8CB1 


8CB1 


L8EDD 


8EDD 


L91A0 


91A0 


L93CE 


93CE 


L8A20 


8A20 


L8CBF 


8CBF 


L8EE2 


8EE2 


L91B6 


91B6 


L93E8 


93E8 


L8A2D 


8A2D 


L8CC1 


8CC1 


L8EEF 


8EEF 


L91BA 


91BA 


L93E9 


93E9 


L8A3A 


8A3A 


L8CC5 


8CC5 


L8EFB 


8EFB 


L91C4 


91C4 


L9420 


9420 


L8A3D 


8A3D 


L8CC6 


8CC6 


L8F1A 


8F1A 


L91CC 


91CC 


L9429 


9429 


L8A67 


8A67 


L8CCD 


8CCD 


L8F20 


8F20 


L91CD 


91CD 


L9430 


9430 


L8A68 


8A68 


L8CD0 


8CD0 


L8F24 


8F24 


L91D0 


91D0 


L9432 


9432 


L8A71 


8A71 


L8CDD 


8CDD 


L8F26 


8F26 


L91E4 


91E4 


L9434 


9434 


L8A77 


8A77 


L8CE2 


8CE2 


L8F41 


8F41 


L91E9 


91E9 


L9443 


9443 


L8A83 


8A83 


L8CE4 


8CE4 


L8F4F 


8F4F 


L91F1 


91F1 


L9444 


9444 


L8A86 


8A86 


L8D01 


8D01 


L8F5A 


8F5A 


L9200 


9200 


L9451 


9451 


L8A90 


8A90 


L8D02 


8D02 


L8F74 


8F74 


L9202 


9202 


L945E 


945E 


L8A91 


8A91 


L8D12 


8D12 


L8F8F 


8F8F 


L9211 


9211 


L946B 


946B 


L8A95 


8A95 


L8D14 


8D14 


L8F96 


8F96 


L9213 


9213 


L946C 


946C 


L8A99 


8A99 


L8D1B 


8D1B 


L8FB3 


8FB3 


L9235 


9235 


L946E 


946E 
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L947B 


947B 


L9708 


9708 


L9934 


9934 


L9B97 


9B97 


L9DFC 


9DFC 


L948A 


948A 


L970A 


970A 


L993B 


993B 


L9B98 


9B98 


L9E05 


9E05 


L948C 


948C 


L970C 


970C 


L9954 


9954 


L9B9A 


9B9A 


L9E0D 


9E0D 


L948E 


948E 


L970E 


970E 


L9958 


9958 


L9BAC 


9BAC 


L9E21 


9E21 


L9490 


9490 


L9710 


9710 


L9969 


9969 


L9BBE 


9BBE 


L9E2B 


9E2B 


L9492 


9492 


L9714 


9714 


L996C 


996C 


L9BC8 


9BC8 


L9E32 


9E32 


L9494 


9494 


L971D 


971D 


L996E 


996E 


L9BE2 


9BE2 


L9E56 


9E56 


L949D 


949D 


L9736 


9736 


L9970 


9970 


L9BEB 


9BEB 


L9E5B 


9E5B 


L94A1 


94A1 


L973F 


973F 


L9983 


9983 


L9BEE 


9BEE 


L9E5E 


9E5E 


L94B2 


94B2 


L9751 


9751 


L998C 


998C 


L9BF1 


9BF1 


L9E69 


9E69 


L94C1 


94C1 


L9752 


9752 


L999E 


999E 


L9BF2 


9BF2 


L9E6A 


9E6A 


L94CC 


94CC 


L975A 


975A 


L99A1 


99A1 


L9BF7 


9BF7 


L9E78 


9E78 


L94DD 


94DD 


L9765 


9765 


L99AC 


99AC 


L9BFC 


9BFC 


L9E79 


9E79 


L94E2 


94E2 


L979A 


979A 


L99BA 


99BA 


L9C01 


9C01 


L9E7D 


9E7D 


L9502 


9502 


L979F 


979F 


L99C6 


99C6 


L9C0A 


9C0A 


L9E81 


9E81 


L9506 


9506 


L97AE 


97AE 


L99CB 


99CB 


L9C1B 


9C1B 


L9E85 


9E85 


L950D 


950D 


L97B7 


97B7 


L99DF 


99DF 


L9C27 


9C27 


L9E89 


9E89 


L9514 


9514 


L97C0 


97C0 


L99E8 


99E8 


L9C3E 


9C3E 


L9E8D 


9E8D 


L951B 


951B 


L97CA 


97CA 


L99EE 


99EE 


L9C5A 


9C5A 


L9E91 


9E91 


L9522 


9522 


L97D3 


97D3 


L99F2 


99F2 


L9C5B 


9C5B 


L9E95 


9E95 


L9536 


9536 


L97DE 


97DE 


L9A09 


9A09 


L9C62 


9C62 


L9E99 


9E99 


L953B 


953B 


L97EB 


97EB 


L9A0B 


9A0B 


L9C7A 


9C7A 


L9EA3 


9EA3 


L9542 


9542 


L9808 


9808 


L9A12 


9A12 


L9C92 


9C92 


L9EDF 


9EDF 


L9552 


9552 


L980C 


980C 


L9A32 


9A32 


L9CC6 


9CC6 


L9EE9 


9EE9 


L9559 


9559 


L9816 


9816 


L9A37 


9A37 


L9CCB 


9CCB 


L9EFD 


9EFD 


L955A 


955A 


L9822 


9822 


L9A39 


9A39 


L9CD1 


9CD1 


L9F11 


9F11 


L955D 


955D 


L9823 


9823 


L9A43 


9A43 


L9CD3 


9CD3 


L9F31 


9F31 


L956C 


956C 


L982E 


982E 


L9A5C 


9A5C 


L9CDD 


9CDD 


L9F5B 


9F5B 


L9576 


9576 


L9831 


9831 


L9A6D 


9A6D 


L9CF4 


9CF4 


L9F66 


9F66 


L9578 


9578 


L9839 


9839 


L9A8B 


9A8B 


L9CFC 


9CFC 


L9F68 


9F68 


L9579 


9579 


L983D 


983D 


L9A9A 


9A9A 


L9D21 


9D21 


L9F7A 


9F7A 


L957B 


957B 


L983E 


983E 


L9A9F 


9A9F 


L9D4C 


9D4C 


L9F85 


9F85 


L9581 


9581 


L9842 


9842 


L9AAD 


9AAD 


L9D4F 


9D4F 


L9F87 


9F87 


L9598 


9598 


L9843 


9843 


L9AAF 


9AAF 


L9D57 


9D57 


L9F8F 


9F8F 


L959A 


959A 


L9847 


9847 


L9AB2 


9AB2 


L9D59 


9D59 


L9F9A 


9F9A 


L95A2 


95A2 


L9848 


9848 


L9AC0 


9AC0 


L9D61 


9D61 


L9FA3 


9FA3 


L95AA 


95AA 


L984C 


984C 


L9AC3 


9AC3 


L9D69 


9D69 


L9FA6 


9FA6 


L95AC 


95AC 


L984D 


984D 


L9ACD 


9ACD 


L9D6C 


9D6C 


L9FA7 


9FA7 


L95CF 


95CF 


L9851 


9851 


L9AD0 


9AD0 


L9D6D 


9D6D 


L9FB4 


9FB4 


L95F7 


95F7 


L9852 


9852 


L9AE7 


9AE7 


L9D72 


9D72 


L9FB5 


9FB5 


L95FB 


95FB 


L985D 


985D 


L9AEB 


9AEB 


L9D7B 


9D7B 


L9FD4 


9FD4 


L9600 


9600 


L9864 


9864 


L9AF2 


9AF2 


L9D82 


9D82 


L9FDF 


9FDF 


L9607 


9607 


L986E 


986E 


L9AFA 


9AFA 


L9D83 


9D83 


L9FE2 


9FE2 


L9609 


9609 


L9873 


9873 


L9AFF 


9AFF 


L9D87 


9D87 


L9FF8 


9FF8 


L960F 


960F 


L9877 


9877 


L9B15 


9B15 


L9D8C 


9D8C 


LA0E2 


A0E2 


L9616 


9616 


L9884 


9884 


L9B18 


9B18 


L9D8F 


9D8F 


LA171 


A171 


L962E 


962E 


L9890 


9890 


L9B1F 


9B1F 


L9D92 


9D92 


LA176 


A176 


L9650 


9650 


L9894 


9894 


L9B22 


9B22 


L9D98 


9D98 


LA282 


A282 


L966C 


966C 


L989B 


989B 


L9B2B 


9B2B 


L9DA9 


9DA9 


LA35F 


A35F 


L966D 


966D 


L98A1 


98A1 


L9B49 


9B49 


L9DB6 


9DB6 


LA3ED 


A3ED 


L967F 


967F 


L98A7 


98A7 


L9B57 


9B57 


L9DBD 


9DBD 


LA406 


A406 


L9687 


9687 


L98B1 


98B1 


L9B5A 


9B5A 


L9DC3 


9DC3 


LA429 


A429 


L96BD 


96BD 


L98CC 


98CC 


L9B5F 


9B5F 


L9DC4 


9DC4 


LA42D 


A42D 


L96CB 


96CB 


L98D7 


98D7 


L9B64 


9B64 


L9DC7 


9DC7 


LA444 


A444 


L96D4 


96D4 


L98E8 


98E8 


L9B72 


9B72 


L9DC8 


9DC8 


LA44C 


A44C 


L96DB 


96DB 


L98EB 


98EB 


L9B80 


9B80 


L9DCB 


9DCB 


LA491 


A491 


L96E6 


96E6 


L98F2 


98F2 


L9B83 


9B83 


L9DDC 


9DDC 


LA498 


A498 


L96EC 


96EC 


L990A 


990A 


L9B88 


9B88 


L9DE8 


9DE8 


LA505 


A505 


L9706 


9706 


L9931 


9931 


L9B8C 


9B8C 


L9DF2 


9DF2 


LA578 


A578 
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LA59A 


A59A 


LB4F3 


B4F3 


PAINT 


98EC 


V4D 


004D 


LA5A5 


A5A5 


LB50F 


B50F 


PCLEAR 


9688 


VARPTR 


86BE 


LA5AE 


A5AE 


LB518 


B518 


PCLS 


9532 


VALTMP 


0006 


LA5C7 


A5C7 


LB51A 


B51A 


PCOPY 


9723 


VARDES 


003B 


LA5E4 


A5E4 


LB56D 


B56D 


PIA0 


FF00 


VARPTR 


0039 


LA616 


A616 


LB643 


B643 


PIAl 


FF20 


VARTAB 


001B 


LA619 


A619 


LB654 


B654 


PLAY 


9A22 


VCB 


00CB 


LA635 


A635 


LB657 


B657 


PLYTMR 


00E3 


VCD 


00CD 


LA644 


A644 


LB659 


B659 


PMOD 


9621 


VCF 


00CF 


LA648 


A648 


LB69B 


B69B 


PMODE 


00B6 


VDl 


00D1 


LA65F 


A65F 


LB6A4 


B6A4 


POS 


86AC 


VD3 


00D3 


LA7D8 


A7D8 


LB6AD 


B6AD 


PPOINT 


9339 


VD4 


00D4 


LA7E9 


A7E9 


LB70E 


B70E 


PRESET 


9365 


VD5 


00D5 


LA7F4 


A7F4 


LB734 


B734 


PSET 


9361 


VD6 


00D6 


LA974 


A974 


LB738 


B738 


PUT 


9758 


VD7 


00D7 


LA976 


A976 


LB73D 


B73D 


RELFLG 


000A 


VD8 


00D8 


LA9A2 


A9A2 


LB740 


B740 


RENUM 


8A09 


VD9 


00D9 


LA9BB 


A9BB 


LB7C2 


B7C2 


RESET 


FFFE 


VDA 


00DA 


LACIE 


ACIE 


LB958 


B958 


RESSGN 


0062 


VERBEG 


00BF 


LAC33 


AC33 


LB95C 


B95C 


RSTVEC 


0072 


VERDEF 


00C9 


LAC46 


AC46 


LB99F 


B99F 


RVEC15 


018B 


VEREND 


00C5 


LAC60 


AC60 


LB9AC 


B9AC 


RVEC17 


0191 


VOLHI 


00DF 


LAC73 


AC73 


LB9AF 


B9AF 


RVEC18 


0194 


VOLLOW 


00E0 


LAC7C 


AC7C 


LB9B4 


B9B4 


RVEC19 


0197 


WCOLOR 


00B4 


LACA8 


ACA8 


LB9B9 


B9B9 


RVEC20 


019A 


XBWMST 


80C0 


LACEF 


ACEF 


LB9C2 


B9C2 


RVEC22 


01A0 


XIRQSV 


894C 


LACFl 


ACFl 


LBAIC 


BAIC 


RVEC23 


01A3 


XVEC15 


8846 


LAD01 


AD01 


LBA3A 


BA3A 


RVEC3 


0167 


XVEC17 


88F0 


LAD19 


AD19 


LBA92 


BA92 


RVEC4 


016A 


XVEC18 


829C 


LAD21 


AD21 


LBACA 


BACA 


RVEC8 


0176 


XVEC19 


87E5 


LAD26 


AD26 


LBB48 


BB48 


RVEC9 


0179 


XVEC20 


82B9 


LAD33 


AD33 


LBB5C 


BB5C 


SAM 


FFC0 


XVEC23 


8304 


LAD9E 


AD9E 


LBB6A 


BB6A 


SCALE 


00E9 


XVEC3 


8273 


LADC6 


ADC6 


LBB82 


BB82 


SCREEN 


9670 


XVEC4 


8CF1 


LADD4 


ADD4 


LBB8F 


BB8F 


SETFLG 


00C2 


XVEC8 


8286 


LADEB 


ADEB 


LBC14 


BC14 


SOR 


8480 


XVEC9 


8E90 


LAE15 


AE15 


LBC2F 


BC2F 


STRINOUT 


B99C 


ZERO 


008A 


LAED2 


AED2 


LBC35 


BC35 


SYNCOMMA 


B26D 






LAEE0 


AEE0 


LBC4C 


BC4C 


TAN 


8381 






LAF67 


AF67 


LBC5F 


BC5F 


TEMPO 


00E2 






LAFA4 


AFA4 


LBC6D 


BC6D 


TEMPTR 


000F 






LB035 


B035 


LBCA0 


BCA0 


TIMER 


8968 






LB141 


B141 


LBCC8 


BCC8 


TIMOUT 


00E7 






LB143 


B143 


LBD99 


BD99 


TIMVAL 


0112 






LB146 


B146 


LBDC5 


BDC5 


TINPTR 


002F 






LB156 


B156 


LBDCC 


BDCC 


TMPSTK 


00DC 






LB158 


B158 


LBDD9 


BDD9 


TRCFLG 


00AF 






LB244 


B244 


LBEE9 


BEE9 


TROFF 


86A8 






LB262 


B262 


LBEF0 


BEF0 


TRON 


86A7 






LB267 


B267 


LBEFF 


BEFF 


TXTTAB 


0019 






LB26A 


B26A 


LBF78 


BF78 


USR0 


013E 






LB26F 


B26F 


LBFA6 


BFA6 


USRADR 


00B0 






LB277 


B277 


LC002 


C002 


V40 


0040 






LB284 


B284 


LINBUF 


02DC 


V41 


0041 






LB2CE 


B2CE 


LINE 


93BB 


V43 


0043 






LB357 


B357 


LOG 


8446 


V45 


0045 






LB35C 


B35C 


MEMSIZ 


0027 


V47 


0047 






LB3A2 


B3A2 


NOTELN 


00E1 


V4A 


004A 






LB44A 


B44A 


OCTAVE 


00DE 


V4B 


004B 
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EXPLANATION OF TERMS: 

CALPOS - Refer to chapter 3 page 6 for detailed explanation. 

NORMALIZING - Refer to chapter 3 page 6 for detailed explanation. 

PIXEL - Refer to chapter 3 page 6 for detailed explanation. 

SPECIAL NOTE: Some of the following routines require that certain registers and/or 
variables be set up with certain values before calling them. If an 
error is generated while in one of these routines, the normal error 
message will be generated and the routine will return control to 
BASIC. In order to prevent this from happening, the error must be 
intercepted by using the ram hook for the error processing routine 
(RVEC17). 

MODIFIED 

REGISTERS ADDRESS DESCRIPTION 

A,B,X 8524 FIX NUMBER IN FPA0 - Converts the number in FPA0 

to an integer value and forces it to be positive. 

A,B,X 881F EVALUATE &H - Get the value after the &H from the 

program line and convert it to a numerical value. 

A,U 928F GET CALPOS ROUTINE ADDRESS - Get the address of 

the routine which will convert the horizontal and 
vertical coordinates into an absolute screen 
address and pixel mask depending upon the current 
PMODE. Return the address of the routine in the 
U register. 

A,U 9298 CALPOS FOR CURRENT PMODE - This routine jumps to 

the correct calpos routine depending upon the 
current PMODE. 

A,X,U 92A6 CALPOS 2 COLOR MODE - Calculates toe absolute 

screen address and pixel mask for the 2 color hires 
mode. Enter with X,Y coordinates in HORBEG and 
VERBEG and exit with address in the X register and 
the pixel mask in ACCA. 

A,X,U 92C2 CALPOS 4 COLOR MODE - Calculates toe absolute 

screen address and pixel mask for the 4 color hires 
mode. Enter with X,Y coordinates in HORBEG and 
VERBEG and exit with address in the X register and 
the pixel mask in ACCA. 

B,X 92E9 ADJUST SCREEN POINTER DOWN A ROW - Move the X 
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register down one graphic row. The number of 
bytes per horizontal graphic row must be in HORBYT. 

A,X 92ED MOVE A PIXEL TO THE RIGHT (2 COLOR) - Adjust the X 

register and ACCA one pixel position to the right in 
the 2 color mode. Enter with the absolute screen 
address in the X register and the pixel mask in ACCA. 

A,X 92F4 MOVE A PIXEL TO THE RIGHT (4 COLOR) - Adjust the X 

register and ACCA one pixel position to the right in 
the 4 color mode. Enter with the absolute screen 
address in the X register and the pixel mask in ACCA. 

A,B,U 931D NORMALIZE COORDINATES - Adjust the horizontal and 

vertical coordinates for the current PMODE. Enter 
with X,Y coordinates in HORBEG and VERBEG, the 
normalized coordinates will be returned in the same. 

A,B 9377 TURN ON A PIXEL - Turn on the pixel which is 

being pointed to by the X register (absolute 
screen address) and ACCA (pixel mask) to the color 
in ALLCOL. Set CHGFLG <> if pixel color was 
unchanged by the action. 

ALL 9408 DRAW A BOX - Encloses a diagonal line with a box 

(box function of LINE). Enter with the start and 
end coordinates of the original line in HORBEG, 
VERBEG, HOREND and VEREND. 

ALL 9434 FILL BOX - Draw a series of horizontal lines 

from BERBEG to VEREND 

ALL 9444 DRAW A HORIZONTAL LINE - Draw a horizontal line from 

HOREND to HORBEG at the vertical coordinate VERBEG 
with the color in ALLCOL. 

ALL 946E DRAW A VERTICAL LINE - Draw a vertical line from 

VEREND to VERBEG at the horizontal coordinate 
HORBEG with the color in ALLCOL. 

B,U 9494 POINT TO PIXEL MOVE ROUTINE - Point the U register 

to the routine which will move the current pixel 
to the right one position for the current PMODE. 

ALL 94A1 DRAW A LINE - Draw a line from (HORBEG, VERBEG) to 

(HOREND, VEREND). 

X 9506 INCREMENT HORIZONTAL POSITION - Gets the current 

horizontal coordinate (HORBEG) and moves it one 
to the right. 
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X 950D INCREMENT VERTICAL POSITION - Gets the current 

vertical coordinate (VERBEG) and moves it one down. 

X 9515 DECREMENT HORIZONTAL POSITION - Gets the current 

horizontal coordinate (HORBEG) and moves it one 
to the left. 

X 951B DECREMENT VERTICAL POSITION - Gets the current 

vertical coordinate (VERBEG) and moves it one up. 

A,B,X,U 9522 GET MAXIMUM COORDINATES - Get the maximum values 

of the horizontal and vertical coordinates for the 
current PMODE. Return HOR in VD3 and VER in VD5. 

A,B,X 9536 CLEAR GRAPHIC SCREEN - Clear the current graphics 

screen to the color in ACCB. If ACCB = then 
clear to the current background color. 

A,B 9710 CALCULATE ABS(VEREND- VERBEG) - Calculate the 

absolute value of the distance between VEREND 
and VERBEG. Carry flag will indicate which was 
the larger coordinate. 

A,B 971D CALCULATE ABS(HOREND-HORBEG) - Calculate the 

absolute value of the distance between HOREND 
and HORBEG. Carry flag will indicate which was 
the larger coordinate. 

U,Y 9FB5 16 BIT MULTIPLY - Multiply (unsigned) two 16 bit 

numbers together. Enter with one number in ACCD 
and the other in the X register. The four byte 
product will be returned in the Y and U registers. 
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DESCRIPTION 

EXTENDED BASIC ROM IDENTIFIER 

COMMAND INTERPRETATION TABLE ROM IMAGE 

COPYRIGHT MESSAGES 

PRIMARY RESERVED WORD TABLE 

PRIMARY RESERVED WORD DISPATCH TABLE 

SECONDARY RESERVED WORD TABLE 

SECONDARY RESERVED WORD DISPATCH TABLE 

FLOATING POINT VALUE FOR PI/2 

TAYLOR SERIES COEFFICIENTS FOR ARCTANGENT 

TAYLOR SERIES COEFFICIENTS FOR NATURAL LOG(X) 

FLOATING POINT VALUE FOR .5*S0R(2) 

FLOATING POINT VALUE FOR THE SOUARE ROOT OF 2 

FLOATING POINT VALUE FOR -.5 

FLOATING POINT VALUE FOR THE NATURAL LOG OF 2 

FLOATING POINT VALUE FOR CORRECTION FACTOR OF 
EXPONENTIAL FUNCTION 

TAYLOR SERIES FOR E'^X 

ERROR MESSAGES 

UL' (UNKNOWN LINE NUMBER) MESSAGE 

JUMP TABLE FOR CALPOS ROUTINES 

2 COLOR MODE PIXEL MASKS 

4 COLOR MODE PIXEL MASKS 

JUMP TABLE OF ADDRESSES WHICH WILL MOVE POINTERS 
ONE PIXEL TO THE RIGHT 

9706 970F TABLE OF HOW MANY BYTES PER HORIZONTAL GRAPHIC 



El 



START 


END 


8000 


8001 


80DE 


80E7 


80E8 


813B 


8183 


81E9 


81F0 


821D 


821E 


8256 


8257 


8272 


83AB 


83AF 


83E0 


841C 


841D 


8431 


8432 


8436 


8437 


843B 


843C 


8440 


8441 


8445 


84C4 


84C8 


84C9 


84F1 


890B 


890E 


8BD9 


8BDC 


929C 


92A5 


92DD 


92E4 


92E5 


92E8 


948A 


9493 
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ROW AND HOW MUCH RAM IS USED FOR ONE HIRES SCREEN 

9839 9851 LOOKUP TABLE FOR PSET, PRESET, AND, OR, AND NOT 
MODIFIERS FOR THE PUT COMMAND 

NUMERICAL NOTE VALUES FOR LETTER NOTES 

TIMING DELAYS FOR OCTAVE 1 

TIMING DELAYS FOR OCTAVE 2 

TIMING DELAYS FOR OCTAVES 3, 4 AND 5 

TABLE OF SINES AND COSINES FOR CIRCLE 



9C5B 


9C61 


9C62 


9C79 


9C7A 


9C91 


9C92 


9CB5 


9E79 


9E9C 



E2 



EXTENDED BASIC UNRAVELLED II 



APPENDIX F 
BASIC/EXTENDED ERROR ENTRY POINTS 



ORIGIN:SPECTRAL ASSOC 
REVISED:03/14/99 WALTER K ZYDHEK 



There are times when it is useful to cause an error message to be 
printed to the screen in the same manner that BASIC prints its error 
messages. The following table is provided to give the user the DISK 
BASIC entry points which will cause error messages to be printed to 
the screen. A JMP to one of these error message routines will cause 
the two letter short form error message to be printed on the screen 
and a pseudo warm start into BASIC will be taken. The pseudo warm 
start will reset the stack, the string stack and the continue pointer 
and jump to BASIC s direct mode (OK). 

BASIC/EXTENDED ERROR JUMPS 



NAME 


NBR 


LABEL 


ADDR 




NF 


00 


LB108 


B108 




SN 


01 


LB277 


B277 




RG 


02 


LAECF 


AECF 




OD 


03 


LB0C3 


B0C3 


COND 


FC 


04 


LB44A 


B44A 




OV 


05 


LBA92 


BA92 




OM 


06 


LAC44 


AC44 




UL 


07 


LAED2 


AED2 




BS 


08 


LB447 


B447 




DD 


09 


LB43B 


B43B 


COND 


/0 


10 


LBC06 


BC06 




ID 


11 


INPUT 


AFF5 


COND 


TM 


12 


LB151 


B151 




OS 


13 


LB585 


B585 


COND 


LS 


14 


LB625 


B625 




ST 


15 


LB553 


B553 




CN 


16 


LAE32 


AE32 


COND 


FD 


17 


LAFD6 


AFD6 


COND 


AO 


18 


LA61C 


A61C 




DN 


19 


LA61F 


A61F 




10 


20 


LA619 


A619 




FM 


21 


LA616 


A616 




NO 


22 


LA3FB 


A3FB 




IE 


23 


LB03F 


B03F 


COND 


DS 


24 


LAC94 


AC94 


COND 


UF 


25 


L88BF 


88BF 


COND 


NE 


26 


L8CDD 


8CDD 





DESCRIPTION 

NEXT WITHOUT FOR 

SYNTAX ERROR 

RETURN WITHOUT GOSUB 

OUT OF DATA 

ILLEGAL FUNCTION CALL 

OVERFLOW 

OUT OF MEMORY 

UNDEFINED LINE NUMBER 

BAD SUBSCRIPT 

REDIMENSIONED ARRAY 

DIVISION BY ZERO 

ILLEGAL DIRECT STATEMENT 

TYPE MISMATCH 

OUT OF STRING SPACE 

STRING TOO LONG 

STRING FORMULA TOO COMPLEX 

CAN'T CONTINUE 

BAD FILE DATA 

FILE ALREADY OPEN 

DEVICE NUMBER ERROR 

INPUT/OUTPUT ERROR 

BAD FILE MODE 

FILE NOT OPEN 

INPUT PAST END OF FILE 

DIRECT STATEMENT IN FILE 

UNDEFINED FUNCTION CALL 

FILE NOT FOUND 



The addresses given for the entry points are valid for COLOR 
BASIC Versions 1.0, 1.1, 1.2 and Extended BASIC Versions 1.0, 1.1, and 2.0. 
If the address is followed by a COND, the corresponding entry point is not 
unconditional, meaning that ACCB will be loaded with the error but some 
sort of test will be imposed before program control will be passed to the 
error handler. As required, these conditional errors may be generated by 
loading a value equal to 2*(error number) into ACCB and then JMPing to 
$AC46. 



Fl 
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The differnces between Extended Basic 1.0 and 1.1 are not earth- 
shaking. The primary difference involves the bug in the PCLEAR com- 
mand which caused BASIC programs to generate a syntax or illegal func- 
tion call error at certain times when a PCLEAR command was executed in 
a BASIC program. This error was caused by the fact that the BASIC input 
pointer was not adjusted when the program was moved as a result of a 
PCLEAR command. Accordingly, when control was returned to the BASIC 
program after a PCLEAR command the BASIC input pointer would invar- 
iably end up pointing to the middle of the program which would cause 
the error. 



ADDRESS 
80DD-80DD 



80FF 
8112 



DIFFERENCES BETWEEN EXTENDED BASIC 1.0 AND 1.1 

Patch to move the BASIC input pointer during PCLEAR 
(see Figure Gl). The originial code in the 1.0 version 
was designed to allow the SAM chip to be programmed 
for 64K RAMs on power up but the code was never ac- 
cessed by any routines in any of the 3 Basic ROMs. 

* THIS CODE IS NOT USED BY ANY OF THE BASICS 

READ PIA PORT B 
CHECK MEM SIZE JUMPER 
BRANCH IF HIGH 

SET SAM CNTL REG MEM SIZE TO 64K 
JUMP TO ADDRESS IN X REG 



80D0 


B6 


FF22 




LDA 


PIAl+2 


80D3 


85 


02 




BITA 


#2 


80D5 


26 


03 




BNE 


L80DA 


80D7 


B7 


FFDD 




STA 


SAM+29 


80DA 


6E 


84 


L80DA 


JMP 


,x 



80DC 00 00 



FCB $00, $00 DEAD SPACE 



Figure Gl - Version 1.0 Code 
Change version number 1.0/1.1 
Change Copyright Year (units digit) 



8C1B-8C22 Patch to fix the DLOAD bug (see Figure G2). The code 
in 1.0 version did not allow for the fact that the 
current BASIC input character was not in ACCA follow- 
ing the CLOSEing of cassette files (JSR LA429). 



8C1B 6F E2 

8C1D 81 4D 

8C1F 26 04 

8C21 A7 E4 



CLR ,-S SAVE DEFAULT TOKEN (NON DLOADM) ON STACK 

CMPA #'M' IS IT DLOADM? 

BNE L8C25 NO 

STA ,S SAVE THE M ON THE STACK 



Figure G2 - Version 1.0 code 

8C51 Change instruction op code from BNE(1.0) to BEO(l.l). 
This change was necessitated by the previous fix to 
DLOAD. 

9179 Change op code address field from #12(1.0) to #10(1.1) 
This change and the one following fix a minor bug in 



Gl 
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the ASCII to floating point conversion in PRINT USING. 

917D Change op code address field from #'9'+3(1.0) to #'9'+l 
(1.1) 

962C-962D Change instruction from LDA #6(1.0) to LDA GRPRAM(l.l). 
This change allows the start of the first graphic page 
to be determined by the value in the direct page var- 
iable GRPRAM (start of graphic RAM) rather than the 
absolue value of 6 which is valid for an Extended 
Basic ONLY system. 

96A3-96B3 Patch the PCLEAR command to fix the PCLEAR bug (see 
Figure G3). This patch merely rearranges existing 
code to allow for the call (JSR L80D0) to the routine 
which will adjust the BASIC input pointer. 



96A3 1025 1DA3 

96A7 93 19 

96A9 D3 IB 

96AB IF 01 

96AD C3 00C8 

96B0 93 21 

96B2 24 B9 



LBLO LB44A 

SUBD TXTTAB 

ADDD VARTAB 

TFR D,X 

ADDD #200 

SUBD FRETOP 

BCC L966D 



IF TRYING TO CLEAR LESS THAN END 

OF CURRENT PAGE = 'ILLEGAL FUNCTION CALL' 

SUBTRACT START OF RAM 

ADD END OF BASIC PROGRAM 

X=TOP OF PCLEARED SPACE+SIZE OF BASIC 

PROGRAM 

ADD 200 - LEAVE SOME ROOM FOR STACK 

SUBTRACT OUT START OF CLEARED SPACE 

NO ROOM LEFT - 'ILLEGAL FUNCTION CALL' 



Figure G3 - Version 1.0 code 
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DISPLAY CHARACTER SET 



HEX 


VALUE 


CHARACTER 


HEX 


VALUE 


CHARACTER 


HEX 


VALUE 


CHARACTER 


Non- 




Non- 




Non- 




Inverted 


Inverted 




Inverted 


Inverted 




Inverted 


Inverted 




00 


40 


@ 


18 


58 


X 


30 


40 





01 


41 


A 


19 


59 


Y 


31 


41 


1 


02 


42 


B 


lA 


5A 


Z 


32 


42 


2 


03 


43 


C 


IB 


5B 


[ 


33 


43 


3 


04 


44 


D 


IC 


5C 


\ 


34 


44 


4 


05 


45 


E 


ID 


5D 


] 


35 


45 


5 


06 


46 


F 


IE 


5E 


t 


36 


46 


6 


07 


47 


G 


IF 


5F 


<- 


37 


47 


7 


08 


48 


H 


20 


60 




38 


48 


8 


09 


49 


I 


21 


61 


1 


39 


49 


9 


0A 


4A 


J 


22 


62 


" 


3A 


4A 


: 


0B 


4B 


K 


23 


63 


# 


3B 


4B 


) 


0C 


4C 


L 


24 


64 


$ 


3C 


4C 


< 


0D 


4D 


M 


25 


65 


% 


3D 


4D 


= 


0E 


4E 


N 


26 


66 


& 


3E 


4E 


> 


0F 
10 


4F 
50 



P 


27 
28 


67 
68 


( 


3F 


4F 


? 








11 


51 


Q 


29 


69 


) 








12 


52 


R 


2A 


6A 


* 








13 


53 


S 


2B 


6B 


+ 








14 


54 


T 


2C 


6C 


) 








15 


55 


U 


2D 


6D 


- 








16 


56 


V 


2E 


6E 


. 








17 


57 


w 


2F 


6F 


/ 









HI 



